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