Hallo an alle,

Ich hab eine Frage. Ich habe mir Turbo Delphi geladen und wie wahrscheinlich die meisten wissen, gibt es dort Einschränkungen für Komponenten von Dritten (unteranderem Indy). Ich möchte für die Arbeit ein Programm zur Steuerung einer Maschine schreiben. Die Maschine steht aus Sicherheitsgründen in einem seperaten Raum. Deswegen soll über einem 2. Rechner und TServerSocket/ TServerClient das Programm an der Maschine gesteuert werden.

Nun das Problem:

Wie initialisiere ich bei einem TServerSocket die OnClientRead-Funktion, so dass ich sie benutzen kann. Klingt zwar trivial aber bisher hatte ich immer eine Delphi Version, wo Indy direkt eingebunden war und somit über den Objektinspektor angesprochen werden konnte.

Würde mich über eure Hilfe freuen, auch wenn das eine wahrscheinlich eher triviale Frage ist.

Danke

BAMatze

Im Prinzip ganz einfach: Du definierst Dir eine Methode mit gleicher Signatur und kannst diese dann dem Event zuweisen. Es muss aber eine Methode sein, eine reguläre Funktion geht nicht. Ein Beispiel für einen Button:

zusammenfalten · markieren

Delphi-Quellcode:

type TMyForm = class(TForm)
private
  procedure DoOnClick(Sender: TObject);
...
end;

...

procedure TMyForm.DoOnClick(Sender: TObject);
begin
  //hier der Code der Methode
end;

...
MyButton := TButton.Create(self);
...
MyButton.OnClick := DoOnClick;
...
end.

Danke für deine Hilfe,

Habe jetzt folgendes Programm dazu geschrieben und es kommt zumindest beim compilieren zu keinem Fehler. Kannst ja mal schauen, ob ich einen logischen Fehler (wie z.B. Unendlich Schleife)eingebaut hab, der durch den Compiler nicht erkannt wird.

zusammenfalten · markieren

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure OnClientRead(Sender: TObject; Socket: TCustomWinSocket);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  myServer : TServerSocket;

implementation

{$R *.dfm}

procedure TForm1.OnClientRead(Sender: TObject; Socket: TCustomWinSocket);
var i : integer;
begin
  For i := 0 to myServer.Socket.ActiveConnections - 1 do
    begin
      with myServer.Socket.Connections [i] do
      if (Connected) then SendText('Hallo');
    end;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  myServer := TServerSocket.Create(Form1);
  myServer.Port := 6712;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  myServer.Destroy;
end;

end.

Danke nochmal

Du solltest das OnClientRead auch noch zuweisen (am besten mit im OnCreate)

Auf die Schnelle fallen mir 2 Dinge auf:
- statt Destroy besser Free aufrufen
- Du hast die Methode noch nicht zugewiesen

Die beiden letzten Proceduren habe ich so abgeändert:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  myServer := TServerSocket.Create(Form1);
  myServer.Port := 6712;
  myServer.OnClientRead := Form1.OnClientRead;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  myServer.free;
end;

Kleiner Verbesserungsvorschlag:

markieren

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  myServer := TServerSocket.Create(Form1);
  myServer.Port := 6712;
  myServer.OnClientRead := self.OnClientRead;
end;

Man sollte niemals benannte Instanzen nehmen.

Danke hab ich noch verädert.

Eine kleine Zusatzfrage, wie kann ich in dem Memo die Cursorposition (der blinkende senkrechte Strich im Textfeld) ausschalten ohne gleich das ganze Memo-Feld zu deaktivieren oder kann ich die Schriftfarbe des deaktivierten Memofeldes von grau auf schwarz ändern?

Für den Cursor müsste HideCaret() weiterhelfen.

Zitat von DeddyH:

Kleiner Verbesserungsvorschlag:

markieren

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  myServer := TServerSocket.Create(Form1);
  myServer.Port := 6712;
  myServer.OnClientRead := self.OnClientRead;
end;

Man sollte niemals benannte Instanzen nehmen.

Nicht ganz konsequent Schau dir mal den Parameter von TServerSocket.Create an.