| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Помогите разобраться [D7, WinXP]

Antonydee ©   (2006-08-16 16:12:00) 

Почему не работает следующий код:

unit Chat;

interface

uses
 SysUtils, Types, Classes, Variants, Graphics, Forms, Dialogs,
 IdUDPServer, IdBaseComponent, IdComponent, IdUDPBase, IdUDPClient,
 idSocketHandle, QExtCtrls, QStdCtrls, QControls, StdCtrls, Controls;

type
 TForm1 = class(TForm)
   Edit1: TEdit;
   Memo1: TMemo;
   Button1: TButton;
   IdUDPServer: TIdUDPServer;
   IdUDPClient: TIdUDPClient;
   procedure Button1Click(Sender: TObject);
   procedure IdUDPServerUDPRead(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
IdUDPClient.Send(Edit1.Text);
end;

procedure TForm1.IdUDPServerUDPRead(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.

По идее должны посылаться сообщения, но видимо что-то не так

---

Slym   (2006-08-17 08:44:00) [1]

Что в Эс (s) забито?

---

Rouse_   (2006-08-16 17:02:00) [2]

Они у тебя активны хоть? :)

---

Сергей М.   (2006-08-16 16:26:00) [3]

> видимо что-то не так


Неоспоримая истина)

---

Наверх