Форум: "Сети";
Текущий архив: 2004.02.29;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "Сети";
Текущий архив: 2004.02.29;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.011 c