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]

Расскажите, пожалуйста, как быть со стрингом. То есть как мне в стринг принять не известный заранее объем информации?

TServerSocket.Socket.SendBuf/ReceiveBuf Найти похожие ветки