Трабла с чатом [D7, WinXP]
Muh © (2005-04-02 20:39:00)
Пытаюсь разобраться с сокетами.
Нашел в одной книге такой код чата, в сетке работать не хочет
:( То, что я посылаю, я вижу..но я не вижу что посылают другие, ну
и соответственно не видят меня другие...
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:00) [1]
никто не знает?
Наверх 
ЧАТ |
Орешник |
|
