Скачать: CL | DM;

Трабла с чатом   Найти похожие ветки 

← →
Muh   (2005-04-02 20:39) [0]

Пытаюсь разобраться с сокетами.
Нашел в одной книге такой код чата, в сетке работать не хочет :( То, что я посылаю, я вижу..но я не вижу что посылают другие, ну и соответственно не видят меня другие...

unit chat;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, IdUDPServer, IdBaseComponent, IdComponent, IdUDPBase,
 IdUDPClient,idSocketHandle;

type
 TForm1 = class(TForm)
   IdUDPClient1: TIdUDPClient;
   IdUDPServer1: TIdUDPServer;
   Memo1: TMemo;
   Edit1: TEdit;
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
   procedure IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
     ABinding: TIdSocketHandle);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
IdUDPClient1.Send(Edit1.Text);
end;

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
 ABinding: TIdSocketHandle);
var
 StringFormatedStream: TStringStream;
 s: String;
begin
StringFormatedStream := TStringStream.Create("");

StringFormatedStream.CopyFrom(AData, AData.Size);
Memo1.Lines.Add(ABinding.PeerIP+" "+StringFormatedStream.DataString);
ABinding.SendTo(ABinding.PeerIP, ABinding.PeerPort, s[1], Length(s));
StringFormatedStream.Free;
end;

end.

---

← →
Muh   (2005-04-03 22:35) [1]

никто не знает?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c