http request

[Alterauge]

Hallo,

so jetzt bekomme ich über Button1 mein Telegramm gesendet! ( 1 x mal)
Benutze die Indy TCPClient Komponente, ein disconnect ist nicht möglich! (ist ja bekannt bei der Indy Komponente)

Was habe ich jetzt noch für eine Möglichkeit, über den Button1 das Telegramm nochmals zu senden?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 request, nl, content : string;
 i : integer;
begin
   content := 'type=pocsag&address=1234077&flags=0&function=a&message=hallo';
      nl := AnsiChar(#13) + AnsiChar(#10);
   request := 'POST /telegramin/alarmgeber/input.xml HTTP/1.1' + nl
   + 'Authorization: Basic FtzUjHjUjjJHUJ=' + nl
   + 'Content-Type: application/x-www-form-urlencoded' + nl
   + 'Host: delphi.delphi.de' + nl
   + 'Content-Length: ' + IntToStr(length(content)) + nl
   + 'Expect: 100-continue' + nl
   + 'Connection: Keep-Alive'+ nl + nl
   + content;
 Client.IOHandler.WriteLn(request);
  for I := 1 to 20 do
   Memo1.Lines.Add(Client.IOHandler.ReadLn);
 end