19.02.2009, 01:52
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 904
С нами:
9655526
Репутация:
1821
|
|
Сообщение от Nightmarе
Помогите решить проблемму кому не в лом, есть процедура отправки файлов с компа на сервер.
Код:
// Отправляем файл гейту
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 переданных файлов на сервер, вся программа как бы виснет и не функционирует, всё окончательно сводится на этот кусок кода, есть ли возможность исправить ошибку чтобы программа не висла ?
Код:
http:TidHTTP;
Begin
http:=TidHTTP.create(nil);
....
....
http.Free;
End;
Хм...Так?
|
|
|