Socket

[Matrix Scripter]

Also ich wollte da ein bisschen üben und steh jetzt schon vor einem Fehler....:(

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
//initialisieren der sockets
  Server := TServerSocket.Create(Form1);
  Client := TClientSocket.Create(Form1);
  label2.Caption := IPWatch.LocalIP;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Client.Active = true then
  begin
    Client.Socket.SendText(edit1.Text);
    delay(500);
    edit1.clear;
  end;
end;

procedure TForm1.ServerClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var msg: string;
begin
  Memo1.Lines.Add(Socket.ReceiveText);
end;

procedure TForm1.delay(time:word);
var start: integer;
begin
  start := GetTickCount;
  while (GetTickCount) - (start) <= time do
    Application.ProcessMessages;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
  Server.Free;
  Client.Free;
end;

procedure TForm1.ClientConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
   Memo1.Lines.Add('**connected')
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  //Port zuweisein
  Server.Port := 44044;
  Client.Port := 44044;
  //listening status on / connecten
  try
    Client.Host := IPWatch.LocalIP;
    Server.Open;
    Client.Open;
  except
    Application.MessageBox('Verbinden fehlgeschlagen','Fehler',0+48);
    Server.Free;
    Client.Free;
    close;
  end;
end;

procedure TForm1.ClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Memo1.Lines.Add('**Disconected');
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Server.Close;
  Client.Close;
end;

end.

Findet da jmd einen Fehler?

mfG Matrix Scripter

[Nils_13]

Welcher Fehler ?

[Matrix Scripter]

Es passiert gar nix..bei mir
So ein mist! :wall:

[Zacherl]

So mach ichs immer!

Delphi-Quellcode:

procedure TForm1.ServerClientRead(Sender: TObject; 
  Socket: TCustomWinSocket); 
var msg: string; 
begin 
  msg := Socket.ReceiveText;
  Memo1.Lines.Add(msg); 
end;

Als Client.Host mach mal 127.0.0.1.

Florian

[Matrix Scripter]

funktioniert auch nicht.
Ich hab keine Ahunung warum.... :twisted:

[Aenogym]

hi,

vielleicht blockt deine firewall den datenfluss.

wie kommst du eigentlich auf port 44044?

aenogym

[Matrix Scripter]

Nein die Firewall macht nix. Daran liegts nicht....
Den port hab ich aus einem Tutor...
Weiss keiner woran es liegen könnte?

[prinz_inzide]

hab exakt das gleiche problem!
hab die frage hier (leider unbeantwortet) und dann im DF gestellt, dort war einer der hatte ahnung.
muss dir leider sagen dass es ohne größeren aufwand nicht gehn wird!
das problem ist nämlcih, dass du deine socket dyn. erstellt anders wärs null problem (alles s. Thread im DF).

hier mal der thread (ausm DF) zum lesen:
http://www.delphi-forum.de/topic_42409.html

hoffe ich konnt helfen!

bis denne

[alcaeus]

@Matrix Scripter: hast du es schon mal mit Sockets versucht, die du auf die Form setzt? Hast du den Komponenten auch die entsprechenden Ereignisse zugewiesen:

Delphi-Quellcode:

Server.OnClientRead := ServerClientRead

Weiters: der try-except-Block beim Connecten ist überflüssig. Fast alle Fehler werden übers OnError-Ereignis ans Programm weitergereicht, da sie erst später auftreten und die Sockets IDR non-blocking sind.

Greetz
alcaeus

[Matrix Scripter]

Hey danke! Jetzt klappt es :-)
Aber ich verstehe nicht ganz...ich habe die Sockets auf die form gesetzt von der internet pallette...
wieso musste ich trotzdem

Delphi-Quellcode:

Server.OnClientRead := ServerClientRead

schreiben?

mfG Matrix Scripter :-D :-D