Entwickler-Ecke
Internet / Netzwerk - Socket.ReceiveText - nicht genügend wirkliche Parameter
stratege15 - Di 28.10.03 02:07
Titel: Socket.ReceiveText - nicht genügend wirkliche Parameter
hallo,
ich wollte das netzerkchat-tutorial mal ausprobieren .. nur bei der compilierung bekomme ich folgenden fehler:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
| procedure ClientSocket1Read;
var s : String;
begin
s := Socket.ReceiveText; Memo1.Lines.add(s);
end; |
wodran liegts? ich hoffe ihr könnt mir helfen. schonmal danke im voraus,
Stratege
Moderiert von 
Tino: Code- durch Delphi-Tags ersetzt.
maze2k - Di 28.10.03 03:19
Hmm, da fehlt wohl ein bißchen was bei dir *g*
Also ich nehme mal an dein Memo und dein ClientSocket hast du auf der Form plaziert.
Um das onRead-Event des ClientSocket zu bearbeiten, markier den Clientsocket auf der Form oder wähl in der Objekt-Hierarchie aus und geh dann im Objektinspektor auf Ereignisse.
Da klickst du dann mal doppelt auf "OnRead".
Damit erstellst du eine neue Prozedur für das OnRead-Ereignis des ClientSockets.
Wenn du es so machst, dann kannst du sicher sein, dass du nichts vergessen hast, zumindest beim Rahmen der Prozedur, also bei der Deklaration.
So sollte es aussehen (Vergleich einfach mal meins und deins und dann fällt dir vielleicht auf dass bei dir ein bißchen was fehlt *g*)
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
| procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var s: String;
begin
s := Socket.ReceiveText;
Memo1.Lines.Add(s);
end; |
stratege15 - Di 28.10.03 15:04
das ist ja genau das problem .. ich habe keine serversocket - komponente auf der form eingefügt, weil ich bei meinem delphi (3) irgendwie keine icon-komponente davon habe. wie kann ich das problem lösen ?
MrSaint - Di 28.10.03 15:22
dann musst du auf den Procedure-Kopf aufpassen :!:
so:
Delphi-Quelltext
1:
2:
| procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket); |
nicht so:
Delphi-Quelltext
1:
| procedure ClientSocket1Read; |
MrSaint
stratege15 - Di 28.10.03 22:46
danke .. das hab ich soweit. nur der chat funktioniert nicht?! ich habe beide sockets auf den selben port eingestellt (port 50), doch wenn ich ein server-programm und ein client-programm starte, wird kommt beim jeweils anderen programm keine chatnachricht zum vorschein.
ne ahnung?
JJJ666 - Di 28.10.03 23:02
hmm poste doch einfach mal den code hier!
denke ma wir köönen dann besser helffen!
cya JJJ
stratege15 - Di 28.10.03 23:14
hier der code:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
| unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, scktcomp, winsock,
StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Memo1: TMemo;
Memo2: TMemo;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
public
end;
var
Form1: TForm1;
clientsocket1: tclientsocket;
serversocket1: tserversocket;
implementation
{$R *.DFM}
function getIPs: Tstrings;
type
TaPInAddr = array[0..10] of PInAddr;
PaPInAddr = ^TaPInAddr;
var
phe: PHostEnt;
pptr: PaPInAddr;
Buffer: array[0..63] of Char;
I: Integer;
GInitData: TWSAData;
begin
WSAStartup($101, GInitData);
Result := TstringList.Create;
Result.Clear;
GetHostName(Buffer, SizeOf(Buffer));
phe := GetHostByName(buffer);
if phe = nil then Exit;
pPtr := PaPInAddr(phe^.h_addr_list);
I := 0;
while pPtr^[I] <> nil do
begin
Result.Add(inet_ntoa(pptr^[I]^));
Inc(I);
end;
WSACleanup;
end;
procedure ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var s : String;
begin
s := Socket.ReceiveText;
form1.Memo1.Lines.add(s);
end;
procedure ServerSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var s : String;
begin
s := Socket.ReceiveText;
form1.Memo1.Lines.add(s);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if (Form1.Caption = 'Client') then
begin
Clientsocket1.Socket.Sendtext(form1.Edit3.Text + ': ' + form1.Edit1.Text);
form1.Memo1.Lines.add(form1.Edit3.Text + ': ' + form1.Edit1.Text);
form1.Edit1.Text := '';
if form1.Edit1.Text = '' then
begin
form1.Edit1.Text := '';
end;
end;
if (Form1.Caption = 'Server') then
begin
ServerSocket1.Socket.Connections[0].SendText(form1.Edit3.Text + ': ' + form1.Edit1.Text);
form1.Memo1.Lines.add(form1.Edit3.Text + ': ' +form1.Edit1.Text);
form1.Edit1.Text := '';
if form1.Edit1.Text = '' then
begin
form1.Edit1.Text := '';
end;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
clientsocket1:=tclientsocket.Create(self);
clientsocket1.port:=50;
ClientSocket1.Address := form1.Edit2.Text;
ClientSocket1.Active := true;
Form1.Caption := 'Client';
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
serversocket1:=tserversocket.Create(self);
serversocket1.port:=50;
Serversocket1.Active := true;
Form1.Caption := 'Server';
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
Memo2.Lines := GetIps;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
serversocket1.free;
clientsocket1.free;
end;
end. |
Moderiert von Tino: Code- durch Delphi-Tags ersetzt.
stratege15 - Mi 29.10.03 00:32
ich weiß schon wo der fehler liegt:
vorher muss ich folgendes initialisieren:
Delphi-Quelltext
1:
2:
| clientsocket1.OnRead:=clientsocket1read(Sender,tcustomwinsocket);
serversocket1.OnRead:=serversocket1read(Sender,tcustomwinsocket); |
mein problem: welchen parameter muss ich bei tcustomwinsocket angeben, damit ich die proceduren clientsocket1read und serversocket1read aufrufen kann?
Moderiert von Tino: Delphi-Tags hinzugefügt.
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!