TTcpServer TTcpClient

← →
Gefest (2003-12-22 23:41) [0]

Уважаемые мастера, помогите с примером на TTcpServer и TTcpClient
Никак не могу заставить отсылать и принимать буфер. Подскажите в каких именно событиях нужно обрабатывать SendBuf и ReceiveBuf. Пожалуйста, нужно позарез...

← →
Yaro © (2003-12-23 05:53) [1]

Блин, ну что тут не понятного? Хелпы читать надо!

..............................................

Type
TCArr = array of char;

procedure TForm1.Button1Click(Sender: TObject);
var
buf: TCArr;
s: string;
begin
s := "This buffer sended from Client to Server!!!";
SetLength(buf, Length(s));
CopyMemory(@buf[0], @s[1], Length(s));
ClientSocket1.Socket.SendBuf(Buf[0], Length(s));
end;

procedure TForm1.Button2Click(Sender: TObject);
var
buf: TCArr;
s: string;
begin
s := "This buffer sended from Server to Client!!!";
SetLength(buf, Length(s));
CopyMemory(@buf[0], @s[1], Length(s));
ServerSocket1.Socket.Connections[0].SendBuf(Buf[0], Length(s));
end;

{
На ServerSocket1 событие: OnClientRead
На ClientSocket1 событие: OnRead
}
procedure TForm1.ClientAndServerSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
var
buf: TCArr;
begin
SetLength(buf, Socket.ReceiveLength);
Socket.ReceiveBuf(buf[0], Socket.ReceiveLength);
ShowMessage(String(buf));
end;

.................................

А не получалось у тебя, скорее всего, из-за того, что ты немного не понимаешь что такое Mассив, String и PChar ...

← →
Yaro © (2003-12-23 06:02) [2]

Пример был приведен для стандартных делфийских компонетнов TServerSocket и TClientSocket. (в 7-ой версии делфи, на сколько я знаю, их нет. и вообще выкинь ты эту седьмую! пятая - рулез!). В компонентах Indy, думаю, все устроено практически так же.

← →
имя (2003-12-23 08:54) [3]

Удалено модератором

← →
Digitman © (2003-12-23 09:18) [4]

> Yaro

> в 7-ой версии делфи, на сколько я знаю, их нет

есть.
в папке ($DELPHI)\Lib

Type
TCArr = array of char;

> Пуауые

type
TRealArr = array of Real;
buf: TRealArr;
..
SendBuf(Buf[0], Length(Buf) * SizeOf(Real));

← →
Yaro © (2003-12-23 09:45) [5]

Удалено модератором
Примечание: Оффтоп...

← →
Gefest (2003-12-23 10:48) [6]

Ну нету этих компонентов у меня, и делфи только 7, а очень нужно....

> Gefest

> Ну нету

ДОЛЖНЫ быть

....Borland\Delphi7\readme.txt

Notepad.exe + CTRL+F + "Deprecated"

Component->Install Packages->Add
($DELPHI)\Bin\dclsockets70.bpl
ЗЫ. Кто ищет, тот всегда найдет.

TTcpServer TTcpClient Найти похожие ветки