[ALexandr555]

Код:

TSendStruct = packed record
  ID: byte;
  mesg: TChat;
  Comand: TDrawCommand
  end;

собственно у меня есть такой пакет, вопрос как мне их несколько (неизвестно колличество) с клеить в один, в дальнейшем уже нужно отправить серверу
cSocket.Socket.SendBuf("склееный пакет","его размер");

[lmikle]

Код:

TSendPacket
  Size : DWORD;
  Count : DWORD;
  Data : Array[0..0] Of TSendStruct; // или Ponter

И посылаешь такую структурку.

[ALexandr555]

хм, не совсем понял как же мне их склеивать и как использовать

Код:

Size : DWORD;
  Count : DWORD;

[dr. F.I.N.]

А зачем их вообще склеивать?

[NumLock]

действительно, зачем вообще склеивать пакеты, если протокол tcp может их разбить при передаче)

[ALexandr555]

Мне нужно слать на сервер команды... Я хочу их собирать в кучу все, и слать.. иначе они слишком часто посылаются...

[NumLock]

ну так я и объясняю, что протокол tcp может последовательные пакеты склеить или один пакет разбить на несколько!!!

[ALexandr555]

не беда, главное чтобы они у меня слались реже

[dr. F.I.N.]

Выдержка из Педивикии:

TCP/IP— «гарантированный» транспортный механизм с предварительным установлением соединения, предоставляющий приложению надёжный поток данных, дающий уверенность в безошибочности получаемых данных, перезапрашивающий данные в случае потери и устраняющий дублирование данных. TCP позволяет регулировать нагрузку на сеть, а также уменьшать время ожидания данных при передаче на большие расстояния. Более того, TCP гарантирует, что полученные данные были отправлены точно в такой же последовательности. В этом его главное отличие от UDP.

Не стоит изобретать велосипед. Просто отправляйте и получайте данные, незадумываясь о их "склейке" или "разлепке".

[ALexandr555]

мне это не надо, мне нужно только сказать как их сразу кучей отправить, я использую ClientSoket ServerSoket

[NumLock]

Код:

type
  TSendStruct = record
...
  end;
var
  FMemoryStream: TMemoryStream;
  data: TSendStruct;
  dummy: Cardinal;
begin
  FMemoryStream:=TMemoryStream.Create;
  try
    FMemoryStream.Write(data, SizeOf(TSendStruct));
    FMemoryStream.Write(data, SizeOf(TSendStruct));
    FMemoryStream.Write(data, SizeOf(TSendStruct));
    FMemoryStream.Write(data, SizeOf(TSendStruct));
    WriteFile(h, FMemoryStream.Memory^, FMemoryStream.Size, dummy, nil);
  finally
    FMemoryStream.Free;
  end;
end;

WriteFile это к примеру!

[ALexandr555]

хм вроде ясно..
както так тогда
потом

Код:

cSocket.Socket.SendBuf(FMemoryStream.Memory^,FMemoryStream.Size);

[dr. F.I.N.]

Терзает меня сомнение о здравом смысле этой идеи. ALexandr555 ты хоть скажи, какая задача тобой движет?

[ALexandr555]

в личку тогда...