19.02.2009, 01:47
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
С нами:
10018169
Репутация:
1680
|
|
Помогите решить проблемму кому не в лом, есть процедура отправки файлов с компа на сервер.
Код:
// Отправляем файл гейту
procedure TForm1.postdownload;
var
d:TIdMultiPartFormDataStream;
begin
d:=TIdMultiPartFormDataStream.Create;
d.AddFile('userfile',Edit1.text,'file');
try
IdHTTP1.Post('http://gate.ru/lol.php'+'?',d);
except
IdHTTP1.Disconnect;
end;
end;
Вот собственно полный код отправки файла на сервер, проблемма кроется в том, что после 2-3 переданных файлов на сервер, вся программа как бы виснет и не функционирует, всё окончательно сводится на этот кусок кода, есть ли возможность исправить ошибку чтобы программа не висла ? |
|
|