VPF::Закачка файла средствами TClientSocket

Igor84

Дата 28.2.2011, 12:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 4.3.2010

Репутация: нет
Всего: нет

Пытаюсь реализовать загрузку файла с http сервера:

Код


    void __fastcall TForm1::ClientSocket1Read(TObject *Sender, TCustomWinSocket *Socket)
    {
    int iSize = Socket->ReceiveLength();
     
    void *pvBuf = malloc(iSize);
     
    int iRes=Socket->ReceiveBuf(pvBuf,iSize);
     
    if (fHead)
    {
    fHead=0;
    void *pvTmp=pvBuf;
     
    char *ptr;
    ptr=strstr((char*)pvBuf,("HTTP/1.1 200"));
    if (ptr>0)
    {
    Form1->Memo1->Lines->Add("OK");
    pvBuf=strstr((char*)pvBuf,"\r\n\r\n")+4;
    int Count=iRes-((char*)pvBuf-(char*)pvTmp);
    Form1->Memo1->Lines->Add("count="+IntToStr(Count));
    TFileStream *str = new TFileStream(ExtractFilePath(Application->ExeName)+"33.tmp",fmCreate);
    str->Seek(0,soFromEnd);
    str->WriteBuffer(pvBuf,iRes-((char*)pvBuf-(char*)pvTmp));
    delete str;
    free(pvBuf);
    free(pvTmp);
    }
    else
    {
    Form1->Memo1->Lines->Add("NO");
    }
    }
    else
    {
    TFileStream *str = new TFileStream(ExtractFilePath(Application->ExeName)+"33.tmp",fmOpenWrite);////***(2)***
    str->Seek(0,soFromEnd);
    str->WriteBuffer(pvBuf,iRes);
    delete str;
    free(pvBuf);
    }
    }

Появилось несколько вопросов:
1. При успешном завершении загрузки файла сокет закрывается автоматически или его надо закрывать вручную? И в каком методе это делать и каким способом (Socket->Close() или Socket->Active=false)?
2. Выполнив запуск закачки в логе событий (Event Log) Билдера можно видеть, что запускается поток (Thread Start):

Вопрос - почему не происходит Thread Exit?

Alca

Дата 28.2.2011, 14:15 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 3993
Регистрация: 14.6.2006

Репутация: 25
Всего: 50

Цитата

При успешном завершении загрузки файла сокет закрывается автоматически или его надо закрывать вручную?

вручную

Цитата

И в каком методе это делать и каким способом (Socket->Close() или Socket->Active=false)?

как тебе больше нравиться

Это сообщение отредактировал(а) Alca - 28.2.2011, 14:16

--------------------

C++ cross-platform library

Igor84

Дата 28.2.2011, 15:53 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 4.3.2010

Репутация: нет
Всего: нет

Цитата(Alca @ 28.2.2011, 14:15

)

вручную

Ок. Бросил на форму кнопку и в обработчике пишу:

Код


Form1->ClientSocket1->Active=false;

а в событии OnDisconnect компонента TClientSocket пишу:

Код


ShowMessage("Disconnected!");

При выполнении все происходит правильно, после Active=false появляется окошко с указанным сообщением. По идее все правильно, но в логе поток не завершается. Почему?

borisbn

Дата 1.3.2011, 16:54 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 4875
Регистрация: 6.2.2010
Где: Ростов-на-Дону

Репутация: 18
Всего: 135

Цитата(Igor84 @ 28.2.2011, 15:53

)

По идее все правильно, но в логе поток не завершается. Почему?

у меня в чистом пустом проекте стартует 5 потоков, а по выходу из программы завершается только 4. Я бы на твоём месте не заморачивался. Если хочешь отловить leak'и, то используй CodeGuard (включается в опциях проекта)

--------------------

Женщины отличаются от программистов тем, что у них чары состоят из стрингов

Alca

Дата 1.3.2011, 19:13 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 3993
Регистрация: 14.6.2006

Репутация: 25
Всего: 50

Цитата

но в логе поток не завершается. Почему?

а че это за поток, это типа ClientSocket1 создает свой тред?

Добавлено через 2 минуты и 42 секунды
а если сделать

Код


ClientSocket1->Close();

?

Добавлено через 4 минуты и 6 секунд
запусти вне IDE и глянь в диспетчере задач чего там, сколько там потоков

--------------------

C++ cross-platform library

Igor84

Дата 1.3.2011, 22:46 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 4.3.2010

Репутация: нет
Всего: нет

Цитата(Alca @ 1.3.2011, 19:13

)

это типа ClientSocket1 создает свой тред?

Ну, выходит, что так... Только не останавливает его, даже если создавать образец TClientSocket динамически, а затем в конце работы удалять его, согласно логу поток не завершается...
И даже если:

Код


ClientSocket1->Socket->Close();

тоже самое.

Цитата(Alca @ 1.3.2011, 19:13

)

запусти вне IDE и глянь в диспетчере задач чего там, сколько там потоков

Попробовал, но это сложно сказать, т.к. в ОС работает много программ и служб, которые периодически запускают\останавливают свои потоки, поэтому сложно отследить - завершился\создался поток моей программы или нет...
Так что же это? Баг компонента?

borisbn

Дата 1.3.2011, 22:51 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 4875
Регистрация: 6.2.2010
Где: Ростов-на-Дону

Репутация: 18
Всего: 135

Цитата(Igor84 @ 1.3.2011, 22:46

)

даже если создавать образец TClientSocket динамически, а затем в конце работы удалять его, согласно логу поток не завершается...

так в этом просто убедиться:

Код


for ( int i = 0; i < 100000; i++ ) {
    TClientSocket * p = new TClientSocket();
    delete p;
}

при этом создаётся 100 тыс. потоков ? а даже если и создаётся, то завершается 100 тыс. раз ?

--------------------

Женщины отличаются от программистов тем, что у них чары состоят из стрингов

Igor84

Дата 1.3.2011, 23:37 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 4.3.2010

Репутация: нет
Всего: нет

borisbn, согласен, но лог событий, кажется это не фиксирует.

Alca

Дата 1.3.2011, 23:40 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 3993
Регистрация: 14.6.2006

Репутация: 25
Всего: 50

Цитата

borisbn, согласен, но лог событий, кажется это не фиксирует.

так зафиксируй его

Добавлено через 14 минут и 44 секунды
составь протокол smile

--------------------

C++ cross-platform library

Alca

Дата 1.3.2011, 23:56 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 3993
Регистрация: 14.6.2006

Репутация: 25
Всего: 50

Цитата

или нет...

или нет

Добавлено через 48 секунд

Цитата

Так что же это? Баг компонента?

передача что, где, когда

--------------------

C++ cross-platform library

Igor84

Дата 2.3.2011, 00:36 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 4.3.2010

Репутация: нет
Всего: нет

Цитата(Alca @ 1.3.2011, 23:56

)

передача что, где, когда

Очень смешно. Если по теме больше нечего сказать, лучше помолчать.

Alca

Дата 2.3.2011, 18:09 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 3993
Регистрация: 14.6.2006

Репутация: 25
Всего: 50

Цитата

поэтому сложно отследить

ни разу

--------------------

C++ cross-platform library

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »