implementation
var Stop : boolean;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var s: string; httpsend: THTTPSend;
begin
Button2.Enabled:=True;
Button1.Enabled:=False;
Stop:=False;
s:='https://bla-bla-bla';
while not(Stop) do
begin
sleep(1000);
httpsend.HTTPMethod('POST','s+Edit1.Text')
Application.ProcessMessages
end
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Stop:=True;
Button2.Enabled:=False;
Button1.Enabled:=True;
end;
end.
дам центы за хорошие ответы!
Раздел: Другое, последний комментарий: 04.03.2013 17:44 Тема закрыта пользователем MiSsiS_IA
Stop:=False;
s:='https://bla-bla-bla';
while not(Stop) do
begin
sleep(1000);
httpsend.HTTPMethod('POST','s+Edit1.Text')
Application.ProcessMessages
end
Stop:=False;
s:='https://bla-bla-bla'+Edit1.Text;
while not(Stop) do
begin
sleep(1000);
Stop=httpsend.HTTPMethod('POST',s)
Application.ProcessMessages
end
раскуривай что возвращает httpsend при успешной передаче... и что при неуспешной.
з.ы. на делфях не кодю... кодю на пыхе и чуток в шарпе...