Hola! Estoy haciendo un programa que envía una lista a una web mediante Get aunque tal vez sería mejor usar POST, pero como la web la hace otro estoy tratando de ver si puedo hacer que funcione con GET antes de pedir que la cambie a método POST.
¿Es posible enviar varios GET sucesivos sin tener que reconectar? Me pasa que conecto, envio el GET con sendtext y si quiero enviar otro GET sin cerrar e iniciar una nueva conexión me sale error.
Código:
procedure TForm1.Button1Click(Sender: TObject);
begin
if Button1.Caption = 'Conectar' then
ClientSocket1.Active:= True;
else
if Button1.Caption = 'Desconectar' then
ClientSocket1.Active:= False;
end;
procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Button1.Caption:= 'Desconectar';
end;
procedure TForm1.ClientSocket1Disconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Button1.Caption:= 'Conectar';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ClientSocket1.Socket.SendText(
'GET http://lalala.com/add.php?lista=' + edit1.text + #13#10 +
'HTTP/1.0' + #13#10 +
'Accept: */*' + #13#10 +
'User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)' + #13#10 +
'Host: ' + ClientSocket1.Host + #13#10 +
'Pragma: no-cache'+#13#10#13#10);
end;