Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

TTcpServer TTcpClient [D7, WinME]

Gefest © (2003-12-22 23:41:00)

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

Fredericco (2003-12-23 12:45:00) [1]

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

Reindeer Moss Eater (2003-12-23 12:42:00) [2]

....Borland\Delphi7\readme.txt

Notepad.exe + CTRL+F + "Deprecated"

Digitman (2003-12-23 12:31:00) [3]

> Gefest

> Ну нету

ДОЛЖНЫ быть

Gefest (2003-12-23 10:48:00) [4]

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

Yaro (2003-12-23 09:45:00) [5]

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

Digitman (2003-12-23 09:18:00) [6]

> Yaro

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

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

Type
TCArr = array of char;

> Пуауые

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

имя (2003-12-23 08:54:00) [7]

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

Yaro (2003-12-23 06:02:00) [8]

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

Yaro (2003-12-23 05:53:00) [9]

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

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

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 ...

Наверх

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