AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Netzwerke Delphi Undefinierter Bezeichner: 'ServerClientRead'
Thema durchsuchen
Ansicht
Themen-Optionen

Undefinierter Bezeichner: 'ServerClientRead'

Ein Thema von PatrickB · begonnen am 17. Dez 2007 · letzter Beitrag vom 17. Dez 2007
Antwort Antwort
PatrickB

Registriert seit: 13. Dez 2007
61 Beiträge
 
#1

Undefinierter Bezeichner: 'ServerClientRead'

  Alt 17. Dez 2007, 19:02
Hi,

ich mache grad das Tutorial: http://www.dsdt.info/tutorials/winsocket/?page=4

Das Problem ist, dass ich Delphi 5 habe. Und bei dieser Version gibt es auf der Tool-Palette noch keine Sockets.
Jetzt hab ich halt alles so nach diesen Schritten gemacht. Nur wenn ich jetzt versuche den Quelltext zu kompilieren erscheint immer dieser Fehler:
Zitat:
[Fehler] Unit1.pas(40): E2003 Undefinierter Bezeichner: 'ServerClientRead'
Wo liegt der Fehler?
Hier mal noch der Quellcode:

Delphi-Quellcode:
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure DdeServerConv1Open(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    Server: TServerSocket;
    Client: TClientSocket;
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.FormCreate(Sender: TObject);
begin
  //Initialisierung des Objekts (ältere Delphi-Versionen)
  Server := TServerSocket.Create(Form1);
  Client := TClientSocket.Create(Form1);
  Server.OnClientRead := ServerClientRead; //Nur bei älteren Versionen
  try
    Server.Port := 10024;
    Server.Open;
    Client.Port := 10024;
    Client.Host := '127.0.0.1';
    Client.Open;
  except
    //Im Fehlerfall wieder freigeben (ältere Versionen)
    Client.Free;
    Server.Free;
  end;
end;

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

procedure TForm1.Button1Click(Sender: TObject);
begin
  Client.Socket.SendText('Hallo!');
end;

procedure TForm1.ServerClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
  MSG: String;
begin
  //Der Text wird in der Variable MSG gespeichert
  MSG := Socket.ReceiveText;

  //Der Text wird einem MemoFeld hinzugefügt
  Memo1.Lines.Add(MSG);
end;



end.
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.625 Beiträge
 
Delphi 12 Athens
 
#2

Re: Undefinierter Bezeichner: 'ServerClientRead'

  Alt 17. Dez 2007, 19:04
Versuch es mal so:
Delphi-Quellcode:
type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure DdeServerConv1Open(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ServerClientRead(Sender: TObject; Socket: TCustomWinSocket); //diese Zeile fehlt
  private
    { Private-Deklarationen }
  public
    Server: TServerSocket;
    Client: TClientSocket;
    { Public-Deklarationen }
  end;
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Progman

Registriert seit: 31. Aug 2007
Ort: 99974 MHL
695 Beiträge
 
Delphi 10.1 Berlin Starter
 
#3

Re: Undefinierter Bezeichner: 'ServerClientRead'

  Alt 17. Dez 2007, 19:06
füg die Proc mal oben bei TForm1 in private oder public mit ein:
Delphi-Quellcode:
public
  procedure ServerClientRead(Sender: TObject; Socket: TCustomWinSocket);
Karl-Heinz
Populanten von Domizilen mit fragiler, transparenter Aussenstruktur sollten sich von der Translation von gegen Deformierung resistenter Materie distanzieren!
(Wer im Glashaus sitzt sollte nicht mit Steinen werfen)
  Mit Zitat antworten Zitat
PatrickB

Registriert seit: 13. Dez 2007
61 Beiträge
 
#4

Re: Undefinierter Bezeichner: 'ServerClientRead'

  Alt 17. Dez 2007, 19:07
Wow, cool, Danke für die schnelle Antwort.

Hatte schon 10 min gegoogelt, aber nix gefunden
  Mit Zitat antworten Zitat
Muetze1
(Gast)

n/a Beiträge
 
#5

Re: Undefinierter Bezeichner: 'ServerClientRead'

  Alt 17. Dez 2007, 20:19
Zitat von PatrickB:
Das Problem ist, dass ich Delphi 5 habe. Und bei dieser Version gibt es auf der Tool-Palette noch keine Sockets.
Gerade D5 hatte noch die Sockets. Die Aussage ist somit nicht nachvollziehbar. Siehe Anhang...
Miniaturansicht angehängter Grafiken
d5_sockets_131.png  
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 03:54 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz