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

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

Передача типов через TClientsData [D6, Win2k, WinXP]

Страницы:   < 1 2 3 >

Calligraff ©   (2008-12-10 10:53:00) 

Добрый день.

Подскажите пожалуйста как можно реализовать следующее:

Есть тип:

type
 TClientsData = class(TObject)
   UIN: Integer;
   Password: String;
 end;

var
  Data: TClientsData;
begin
Data := TClientsData.Create;
Data.Login := 450355355;
Data.Password := '';

// TClientSocket
// Как отправить?

end;

Как отправить Data через TClientSocket, а на TServerSocket принять??

Зарание благодарен

---

Медвежонок Пятачок   (2008-12-10 12:33:00) [41]

Data := TClientsData.Create;

А должен быть тот же тип что и при отправке.

---

Calligraff   (2008-12-10 12:21:00) [42]

Спасибо, Медвежонок Пятачок :)

Не подскажешь еще одно.

Вот на серверной стороне программы делаю так


procedure TformMain.socketServerClientWrite(Sender: TObject;
 Socket: TCustomWinSocket);
var
  Data: TClientsData;
begin
ClientSocket1.Active := True;
Data := TClientsData.Create;
Socket.ReceiveBuf(Data,Socket.ReceiveLength);
end;


но в итоге Data.UIN = 0, а Data.Password Пустой

---

Медвежонок Пятачок   (2008-12-10 11:46:00) [43]

TClientsData = record
  UIN: Integer;
  Password: shortstring;
end;

var cd : TClientsData;

.....

soket.WriteBuff(cd,SizeOf(TClientsData));

---

Страницы:   < 1 2 3 >

Наверх