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

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, а очень нужно....

---

← →
Digitman ©   (2003-12-23 12:31) [7]

> Gefest



> Ну нету


ДОЛЖНЫ быть

---

← →
Reindeer Moss Eater ©   (2003-12-23 12:42) [8]

....Borland\Delphi7\readme.txt

Notepad.exe + CTRL+F + "Deprecated"

---

← →
Fredericco ©   (2003-12-23 12:45) [9]

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

---

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

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



Память: 0.47 MB
Время: 0.016 c