Форум: "Сети";
Текущий архив: 2003.09.04;
Скачать: [xml.tar.bz2];
ВнизTServerSocket.Socket.SendBuf/ReceiveBuf Найти похожие ветки
← →
Alien (2003-06-24 15:42) [0]Правильно ли я использую SendBuf???
Очевидно неправильно, потому что не работает:
procedure TForm1.Button1Click(Sender: TObject);
var i,max:integer;
( Edit1.Text) Правильно ли я использую SendBuf???
Очевидно неправильно, потому что не работает:
procedure TForm1.Button1Click(Sender: TObject);
var i,max:integer;
pse:^integer;
begin
max:=5;
i:=strtoint(Edit1.Text);
pse:=@i;
ClientSocket.Socket.SendBuf(pse,max);
end;
procedure TForm1.ServerSocketClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
i,max:integer;
pse:^integer;
begin
max:=5;
ServerSocket.Socket.ReceiveBuf(pse,max);
i:=pse^;
Edit1.Text:=inttostr(i);
end;
← →
Digitman (2003-06-24 15:49) [1]procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
max:=5;
i:=strtoint(Edit1.Text);
ClientSocket.Socket.SendBuf(i,sizeof(i));
end;
procedure TForm1.ServerSocketClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
i:integer;
begin
ServerSocket.Socket.ReceiveBuf(i,sizeof(i));
Edit1.Text:=inttostr(i);
end;
← →
Alien (2003-06-24 15:59) [2]А если не Integer a String, например? Или TPiont?
← →
Digitman (2003-06-24 17:43) [3]со стрингом - отдельный разговор. это динамич. структура
а TPoint - точно так же :
...(MyPointVar,sizeof(MyPointVar));
← →
Dwemer_ (2003-06-28 18:00) [4]Расскажите, пожалуйста, как быть со стрингом. То есть как мне в стринг принять не известный заранее объем информации?
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2003.09.04;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c