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

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

Передача переменной по сети [D6, Win95/98, Win2k, WinXP]


Ezhik ©   (2004-09-26 15:50:00) 

Здравствуйте. Дело такое: на удалённой машине поизводится поиск файлов и папок и результатом является переменная типа TSearchRec. Мне надо "без потерь"  отправить эту переменную на сервак. Как это сделать, ибо как текст ее отправить нельзя. Чувствую тут пахнет потоками... Дайте примерчик плиз, или совет...


Rouse_   (2004-09-27 11:07:00) [1]

> [2] Digitman ©   (27.09.04 10:29)
Ну это чтоб было понятно что вообще нужно отправлять :)

А TFileName = type string; это я действительно недосмотрел.

Строка там в единственном месте идет а остальной размер статический...
Соответственно общая длинна минус статический размер = размер строки :)


Digitman   (2004-09-27 10:29:00) [2]


> Rouse_


и зачем это ? в смысле промежуточный буфер ?
"загвоздка" у него, у автора, в другом - в структуре TSearchRec есть ссылки на дин.данные (string)


Rouse_   (2004-09-27 09:49:00) [3]

var
 SR: TSearchRec;
 Buffer: array of Byte;
begin
  ...
     SetLength(Buffer, SizeOf(TSearchRec));
     Move(SR, Buffer[0], SizeOf(TSearchRec));

     тут отправляй буфер...

на приемке делай так:

      Move(Buffer[0], SR, SizeOf(TSearchRec));


Наверх

Титульная страница Поиск, карта сайта Написать письмо