in der Laufzeit erstellte Komponenten und ihre Funktionen

[DeddyH]

:oops: Hab Erbarmen, ich bin Brillenträger :mrgreen:

[BAMatze]

So hab das Clientprogramm geschrieben und auch schon einige eurer Anmerkungen umgesetzt. Das Programm startet auch ohne Probleme, bis ich auf "Senden" drücke. Dann erhalte ich die Fehlermeldung: "Exeption der Klasse ESocketError mit der Meldung 'Asyncroner Socket-Fehler 10061 aufgetreten'. Da ich aber durch "localhost" eigentlich an den Client die Nachricht selbst schicke sollte das meiner Meinung nach nicht auftreten.

Delphi-Quellcode:

unit Grundclient;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ScktComp, StdCtrls;

type
  TForm1 = class(TForm)
    Bt_Senden: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure OnRead(Sender: TObject; Socket: TCustomWinSocket);
    procedure Bt_SendenClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  myClient : TClientSocket;

implementation

{$R *.dfm}

procedure TForm1.OnRead(Sender: TObject; Socket: TCustomWinSocket);
begin
  Memo1.Lines.Add('Daten vom Server');
  Memo1.Lines.Add(Socket.ReceiveText);
end;

procedure TForm1.Bt_SendenClick(Sender: TObject);
begin
  myClient.Host := 'localhost';
  myClient.Active := True;
  if myClient.active=true then
    begin
      myClient.Socket.SendText(edit2.text);
      Memo1.Lines.Add('Nachricht gesendet');
      Memo1.Lines.Add(edit2.text);
    end;
  edit2.text:=''
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.Text := 'Client getrennt';

  myClient := TClientSocket.Create(self);
  myClient.Port := 6712;
  myClient.OnRead := self.OnRead;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  myClient.Free;
end;

end.

Hoffe ihr könnt mir nochmal helfen.

Danke

[DeddyH]

Hast Du denn auch einen Server?

[BAMatze]

muss ich den trotzdem laufen lassen? das Serverprogramm war ja das Programm von vorhin.

[DeddyH]

Der Client verbindet sich mit einem Server. Dieser muss den Verbindungsversuch aber auch akzeptieren. Du kannst Dir aber auch einmal diesen Thread durchlesen.

[BAMatze]

Leider konnte mir die Seite nicht wirklich weiterhelfen, weil dort eine TTCPServer und TTCPClient benutzen und ganz andere Methoden haben. Hab es jetzt eine Weile versucht und verstanden, dass ich meinen Server mit dem Port und der lokalen Adresse anscheinend verbinden muss, damit er Anfragen abhören kann, aber noch keine Möglichkeit gefunden dies mit TServerSocket zu verbinden.

Vieleicht habt ihr noch ein paar Ideen.

[BAMatze]

Erstmal recht herzlichen Danke an alle die mir geholfen haben.

Hab aber noch eine weitere Frage. Ich habe die Timer-Funktion an eine Funktion der TForm angebunden, möchte dieser aber weitere Variablen übergeben. Mein Problem ist eigentlich die Angabe des richtigen Sender (TObject) dieser Funktion.

Hier meine derzeitigen Versuche:

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  Controll := TTimer.Create(self);
  Controll.Interval := 25;
  Controll.OnTimer := self.Kontrolle(Sender,Key);
  if key in [#48..#57,#44] then
    begin
      sBuffer := sBuffer + key;
    end;
end;

Wie man sieht, soll die Taste zusätzlich mitgegeben werden. Für Sender in der Funktionszuweisung Controll.OnTimer := self.Kontrolle(Sender,Key); hab ich ich schon Nil und '' angegeben aber bekomme dann immer Fehlermeldungen. Welche Angabe kann ich dort machen, damit dies nicht mehr geschieht.

[DeddyH]

Die Signaturen müssen exakt übereinstimmen, Du kannst die Parameterliste nicht ändern. Also bliebe Dir die Möglichkeit, eine globale Variable (lieber nicht) oder eine Property (besser) zu definieren, auf die Du im Timer-Event zugreifen kannst.