Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   помогите пожалуйста с Post (https://forum.antichat.xyz/showthread.php?t=65192)

Student :) 23.03.2008 23:19
помогите пожалуйста с Post
 
привожу код
httpcli1 это с компонентов ICS

Код:
procedure TForm1.Button1Click(Sender: TObject);
var
sData : string;
Datax : TStringStream;
begin
Datax := TStringStream.Create('');
sData :='a=55';
httpcli1.Proxy:='127.0.0.1' ;
httpcli1.ProxyPort:='81';
HttpCli1.SendStream := TMemoryStream.Create;
HttpCli1.SendStream.Write(sData[1], Length(sData));
HttpCli1.SendStream.Seek(0, 0);
httpcli1.RcvdStream := Datax;
HttpCli1.URL :='http://ima.com/index.php';
HttpCli1.Post;
dounl:=Datax.DataString;
HttpCli1.RcvdStream.Free;
HttpCli1.RcvdStream := nil;
HttpCli1.Free;
ShowMessage(dounl);
end;
Процедура выполняеться один раз , когда повторно нажимаю на кнопку программа пишет об ошибке и вылетает :(

Garfi 23.03.2008 23:30
Сделай цикл ;)

Student :) 23.03.2008 23:40
а смысл

De-visible 23.03.2008 23:42
О какой ошибке пишет?
еще залей этот компонент, там посмотрим а то такого у меня нет!:)

Student :) 23.03.2008 23:49
вот сайт где он лежит
http://www.overbyte.be/frame_index.html?redirTo=/products/ics.html

Hellsp@wn 23.03.2008 23:52
ты компонент разрушаешь: HttpCli1.Free;
а заново создаешь потом?

Student :) 23.03.2008 23:58
а что тогда это делает ?
httpcli1.Destroy

De-visible 24.03.2008 00:57
Ты ошибку написать можешь???

krypt3r 24.03.2008 08:07
Если на форме присутствует компонент HttpCli1, то нафига его уничтожать с помощью Free? При первом проходе все будет ОК, однако в конце происходит освобождение памяти из-под него. Поэтому при втором нажатии бАттона HttpCli1 будет уже отсутствовать. Естественно, выдаст ошибку

dos999 24.03.2008 12:20
Вощем студент :) убирай эту строчку
HttpCli1.Free;

и всё будет оФФигенно =)
ИМХО объекты которые у тебя на форме уничтожать ненадо

Pir4tt 24.03.2008 19:45
лучше, наоборот снеси с формы и сначала создавай серез HttpCli1:=THttpCli1.Create(self), а потом как отработает разрушай через HttpCli1.Free
Зочем так?
А зотем, что что это за компонент я хз, но например в индейцах есть проблема при повторном коннекте с одного и того же компонента))

dos999 25.03.2008 11:13
индейцы вообще с проксёй не всегда хорошо работают


Время: 19:07