| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

TServerSocket.Socket.SendBuf/ReceiveBuf

Alien ©   (2003-06-24 15:42:00) 

Правильно ли я использую 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;

---

Dwemer_   (2003-06-28 18:00:00) [1]

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

---

Digitman   (2003-06-24 17:43:00) [2]

со стрингом - отдельный разговор. это динамич. структура

а TPoint - точно так же :


...(MyPointVar,sizeof(MyPointVar));

---

Alien   (2003-06-24 15:59:00) [3]

А если не Integer a String, например? Или TPiont?

---

Digitman   (2003-06-24 15:49:00) [4]

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;

---

Наверх