сериализация и десериализация

[radiantor]

Всем привет.
пишу сетевую длл с использованием сокетов и протокола UDP.
И мне необходимо передавать некую последовательность чисел строкой.
Например: integer,shortint,shortint,real...
Как можно преобразовать это в строку-сериализовать?
Пс:находил методы с помощью потока, но мне это не подходит.
Мне бы сразу в массив байт и его я передам.
Спасибо.

[Stilet]

находил методы с помощью потока, но мне это не подходит.

Почему? Это же та же передача побайтно.

[radiantor]

Сообщение от Stilet

Почему? Это же та же передача побайтно.

С потоками придется в структуре сервера хранить ещё и свой поток, да
и кода больше получается tstream.create потом его free.

Я тут копал исходники TWriter и TReader. Там же как-то сделано

procedure TReader.Read(var Buf; Count: Longint); assembler;
asm
        PUSH    ESI
        PUSH    EDI
        PUSH    EBX
        MOV     EDI,EDX
        MOV     EBX,ECX
        MOV     ESI,EAX
        JMP     @@6
@@1:    MOV     ECX,[ESI].TReader.FBufEnd
        SUB     ECX,[ESI].TReader.FBufPos
        JA      @@2
        MOV     EAX,ESI
        CALL    TReader.ReadBuffer
        MOV     ECX,[ESI].TReader.FBufEnd
@@2:    CMP     ECX,EBX
        JB      @@3
        MOV     ECX,EBX
@@3:    PUSH    ESI
        SUB     EBX,ECX
        MOV     EAX,[ESI].TReader.FBuffer
        ADD     EAX,[ESI].TReader.FBufPos
        ADD     [ESI].TReader.FBufPos,ECX
        MOV     ESI,EAX
        MOV     EDX,ECX
        SHR     ECX,2
        CLD
        REP     MOVSD
        MOV     ECX,EDX
        AND     ECX,3
        REP     MOVSB
        POP     ESI
@@6:    OR      EBX,EBX
        JNE     @@1
        POP     EBX
        POP     EDI
        POP     ESI
end;

Я в асемблере плохо соображаю и с указателмя у мя туго.
Помогите как нибудь сделать из этого фугкцию читающую из буфера(массива байт).

[Stilet]

С потоками придется в структуре сервера хранить ещё и свой поток

Мы об одних и тех же потоках говорим?

[radiantor]

Сообщение от Stilet

Мы об одних и тех же потоках говорим?

я TStream или TMemryStream имею ввиду под потоком.Т.е поток информации-байт

У меня ДЛЛ работает(уже почти) следующим образом.
Например

a:=CreateServer(8080,Any_IP);
b:=CreateServer(6667,'127.0.0.1');
//так же создаю клиентов на клиентской стороне. CreateClient

//А отсылку информации хочу сделать примерно так.
ServerWriteInteger(a, 1234567);//пока всё в буфер пишется
ServerWriteInteger(a, 8812342);
ServerWriteByte(a, 128);
ServerSend(a);//теперь отправилось

//А на принимающей стороне так же тока
var 
  i,j:integer;
  b:byte;
begin
  ClientReadBegin;//сдесь берем сообщение(строку) из сокета
  ClientReadInteger(cl1,i);//и начинаем десериализацию.
  ClientReadInteger(cl1,j);
  ClientReadByte(cl1,b);
  ClientReadEnd;

Может так яснее станет.

[radiantor]

Хорошо. Решил я попробовать сделать с помощью TWrite и TMemoryStream

TClients(Clientslist.Items[1]).wr.Position:=0;
  TClients(Clientslist.Items[1]).memstream.Position:=0;
  TClients(Clientslist.Items[1]).wr.WriteListBegin;
  TClients(Clientslist.Items[1]).wr.WriteVariant(random(9999));
  TClients(Clientslist.Items[1]).wr.WriteListEnd;

  TClients(Clientslist.Items[1]).serveraddr.sin_family:=AF_INET;
  TClients(Clientslist.Items[1]).serveraddr.sin_port:=htons(8123);
  TClients(Clientslist.Items[1]).serveraddr.sin_addr.S_addr:=inet_addr('127.0.0.1');

  SendTO(TClients(Clientslist.Items[1]).clientsocket,
  @TClients(Clientslist.Items[1]).memstream,sizeof(TClients(Clientslist.Items[1]).memstream),
  0,TClients(Clientslist.Items[1]).serveraddr,
  sizeof(TClients(Clientslist.Items[1]).serveraddr));

Пакет уходит. Но на сервер приходит что-то не то.
Ткните меня носом. Где моя ошибка?

[radiantor]

Всем спасибо. Решение нашел.
Использовал Move с смещающимся указателем

[radiantor]

Теперь у меня проблема в другом. На клиентской стороне не приходят пакеты от сервера.
Хотя на сервер шлются отлично.
Знаю что серверный сокет биндят (bind) на нужный порт.
Вопрос нужно ли делать bind на клиентском сокете? Может поэтому пакет не приходит?