Вопрос про сокет

@TGrey[WoLf] · Регистрация: 14.09.2008

Студворк — интернет-сервис помощи студентам

Здравствуйте, есть консольное приложение которое с помощь сокетов грузит картинку из интернета.
Структура программы самая тривиальная
-вса
-создать соке
-коннект
-отослать запрос
-получать ответ
-закрыть сокет

Все отлично работает в консорли, в прочем, как и везде, но проблема в том, что работает оно 1 раз. Я перегнал код в Borland и мне нужно вызывать скачку неоднократно, но после первого раза оно выдает ошибку конекта, отправки запроса. К какому шагу нужно вернутся или что надо сделать, что бы качать так сказать неограниченное кол-во раз?
Спасибо.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
void __fastcall TForm1::FormCreate(TObject *Sender)
{
        if (WSAStartup (0x0101, &wsa) != 0)
        ShowMessage("Error WSA");
    if (INVALID_SOCKET == (so = socket(AF_INET, SOCK_STREAM, IPPROTO_TCP)))
        ShowMessage("Socket Error");
        addr.sin_family = AF_INET;
    addr.sin_addr.S_un.S_addr = inet_addr(getip(url));
    addr.sin_port = htons(80);
        CPaint();
        //web->Navigate(L"newuo.com/1.html",0,0,0,0);
}
void __fastcall TForm1::pbuMouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
                if (SOCKET_ERROR == connect (so, (sockaddr*)&addr, sizeof (addr)))
                ShowMessage("Connection Error");
            if (SOCKET_ERROR == send (so, query.c_str(), (long)query.length(), 0))
                ShowMessage("Send request Error");
                name = url.substr(url.rfind("/")+1, url.length());
            if ((stream = fopen(name.c_str(), "wb")) == NULL)
                ShowMessage("File Error");
}
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
        ZeroMemory(buff,sizeof(buff));
        len = recv (so, (char*)&buff, 4096, 0);
        if( len > 0 )
        {
        curr+=len;
        string ct = (char*)buff;
        if ( (pos = ct.find("Content-Length: ")) > 0)
                {
            lenght = GetFileSize(ct);
                        getl = true;
                }
        int start = ct.find("\r\n\r\n") + 4;
        if (start == 3)
            start = 0;
        else
            curr-=start;
        fwrite((void*)(buff + start), len - start, 1, stream);
                Label2->Caption = IntToStr(curr);
                Label2->Caption = Label2->Caption + "\\";
                Label2->Caption = Label2->Caption + IntToStr(lenght);
                Label2->Caption = Label2->Caption + "kb";
                perc = (float)curr/(float)lenght*100;
                if( perc == 0 )
                {
                        fx = 50+perc*4;
                        getl = false;
                }
                else
                        fx = 50+perc*4;
        }
        else
        {
                Timer1->Enabled = false;
                done = true;
                progress = false;
                off = true;
                curr = lenght = 0;
                
                if (name != "")
                        fclose(stream);
                if (SOCKET_ERROR == closesocket(so))
                        ShowMessage("Close Socket Error");
                        
                //ShowMessage("Complete");
        }
}

Вот часть с сокетами. Первый раз качает, как полагается, на 2 выдает сообщения

ShowMessage("Connection Error");
ShowMessage("Send request Error");
ShowMessage("Close Socket Error");

@D@rkD@iver · 25.07.2010, 19:51

closesocet закрывает socket полностью
попробуй использовать

C++
1
shutdown(SOCKET s, int how);

@TGrey[WoLf] · 25.07.2010, 20:13 **[ТС]**

Дык я даже пробовал не закрывать его. А shutdown я читал, блокирует передачу, прием или и то и то. Это как бы тоже не то что надо?

@D@rkD@iver · 25.07.2010, 20:17

TGrey[WoLf], тогда я думаю ты создавай сокет в таймере а не в onFOrmCreate

@TGrey[WoLf] · 25.07.2010, 20:37 **[ТС]**

Создавать

C++
1
2
    if (INVALID_SOCKET == (so = socket(AF_INET, SOCK_STREAM, IPPROTO_TCP)))
        ShowMessage("Socket Error");

? Только тогда я думаю не в таймере а по нажатию на кнопку

@D@rkD@iver · 25.07.2010, 20:45

TGrey[WoLf], да
сделай так

@TGrey[WoLf] · 26.07.2010, 21:21 **[ТС]**

Заработало, спасибо.

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита табличной части. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@TGrey[WoLf] 42 / 42 / 4 Регистрация: 14.09.2008 Сообщений: 683
	25.07.2010, 20:13 [ТС]
	Дык я даже пробовал не закрывать его. А shutdown я читал, блокирует передачу, прием или и то и то. Это как бы тоже не то что надо? 0

@D@rkD@iver 113 / 113 / 13 Регистрация: 01.10.2008 Сообщений: 876
	25.07.2010, 20:17
	TGrey[WoLf], тогда я думаю ты создавай сокет в таймере а не в onFOrmCreate 0

@D@rkD@iver 113 / 113 / 13 Регистрация: 01.10.2008 Сообщений: 876
	25.07.2010, 20:45
	TGrey[WoLf], да сделай так 0

@TGrey[WoLf] 42 / 42 / 4 Регистрация: 14.09.2008 Сообщений: 683
	26.07.2010, 21:21 [ТС]
	Заработало, спасибо. 0