Forum: Object-Pascal / Delphi-Language
Delphi
by Counter909,
24. Jul 2008
ah es hat geklappt :-)
nochmal für alle:
beim Server müsst ihr dann
serversocket1.Socket.Connections.SendText(text);
eingeben
Forum: Object-Pascal / Delphi-Language
Delphi
by Counter909,
23. Jul 2008
ahhh jetzt hat es endlich geklappt :-)
außerdem war noch ein fehler:
es muss so aussehen, um die nachricht zu erhalten:
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
Forum: Object-Pascal / Delphi-Language
Delphi
by Counter909,
23. Jul 2008
ok das probiere ich dann gleich oder bissel später, weil ich da ja komplett umänder, wegen twinsock, aber schonmal guter tipp :-)
aber der verbindungsaufbau würd mich jetzt nochmal interessieren
Forum: Object-Pascal / Delphi-Language
Delphi
by Counter909,
23. Jul 2008
nein....active := true ??
Forum: Object-Pascal / Delphi-Language
Delphi
by Counter909,
23. Jul 2008
SERVER:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
serversocket1.Active := false;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
serversocket1.Active:= true;
Forum: Object-Pascal / Delphi-Language
Delphi
by Counter909,
23. Jul 2008
welchen willst du denn genau haben ?
sind ja quasi zwei unterschiedliche programme
also das ist vom send-button
procedure TForm2.Button1Click(Sender: TObject);
var text:string;
Forum: Object-Pascal / Delphi-Language
Delphi
by Counter909,
23. Jul 2008
HI
also ich hab in meinem Projekt einen kleinen Chat zwischen nur ZWEI Leuten:
folgendes hab ich gemacht:
Mensch 1 (Server) : startet den Serversocket
Mensch 2 (client) : verbinden sich mit Clientsocket