Delphi-Quellcode:
unit Unit4;
interface
uses
Winapi.Windows,
Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics,
Vcl.Controls,
Vcl.Forms,
Vcl.Dialogs,
Vcl.StdCtrls, IdBaseComponent,
IdComponent, IdTCPConnection, IdTCPClient,
Vcl.ExtCtrls;
type
TForm4 =
class(TForm)
IdTCPClient1: TIdTCPClient;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure IdTCPClient1Connected(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form4: TForm4;
implementation
{$R *.dfm}
procedure TForm4.Button1Click(Sender: TObject);
begin
IdTCPClient1.Connect;
end;
procedure TForm4.IdTCPClient1Connected(Sender: TObject);
begin
showmessage('
Connected');
IdTcpClient1.IOHandler.Writeln('
say Test');
end;
end.
Das habe ich bisher... wie ich bereits sagte verstehe ich nicht wie der befehl gesendet werden muss... Ich habe bereits alles was ich gefunden habe durchprobiert aber nichts Funktioniert. Ich vermute mal das mein Code nun der richtige Ansatz sein müsste (
IP und Port sind fest in der Komponente hinterlegt)