AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Client/Server- Socket Sendeprobleme

Ein Thema von buyden · begonnen am 23. Okt 2006 · letzter Beitrag vom 23. Okt 2006
 
Carlo91

Registriert seit: 3. Jun 2006
Ort: Bremen
107 Beiträge
 
Delphi 2006 Architect
 
#2

Re: Client/Server- Socket Sendeprobleme

  Alt 23. Okt 2006, 13:27
Hi,
also bei mir geht das!
hab hier noch mal den Code:
Delphi-Quellcode:
...
var
  FrmMain: TFrmMain;
  List: TStringList;

implementation

{$R *.dfm}

// Client:
// ##################################################################################
procedure TFrmMain.Button1Click(Sender: TObject);
begin
  if Client.Active = False then
  begin
    Client.Host :='127.0.0.1'; // Client.Host :='localhost';
    Client.Port :=10024;
    Client.Open; // Client.Active :=True;
    Button1.Caption :='Disconnect';
  end
  else
  begin
    Client.Close; // Client.Active :=False;
    Button1.Caption :='Connect';
  end;
end;

procedure TFrmMain.Button2Click(Sender: TObject);
begin
  if Client.Active = True then Client.Socket.SendText(Edit1.Text);
end;
// ##################################################################################

// Server:
// ##################################################################################
procedure TFrmMain.FormCreate(Sender: TObject);
begin
  List :=TStringList.Create;
  Server.Port :=10024;
  Server.Open; // Server.Active :=True;
  List.Append(FormatDateTime('dd.mm.yyyy-hh:mm:ss', Now)+' - Server gestartet');
  MemMain.Lines:=List;
  List.SaveToFile('mcserver.log');
end;

procedure TFrmMain.ServerClientConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
  List.Insert(0, FormatDateTime('dd.mm.yyyy-hh:mm:ss', Now)+' - Client verbunden');
  MemMain.Lines :=List;
  List.SaveToFile('mcserver.log');
end;

procedure TFrmMain.ServerClientRead(Sender: TObject; Socket: TCustomWinSocket);
begin
  MemMain.Lines.Insert(0, Socket.ReceiveText);
end;
// ##################################################################################

end.
MfG Carlo
Thorben
  Mit Zitat antworten Zitat
 


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 19:52 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz