/////////////////TSysBlock//////////////////
type
TSysBlock = record
CMD,
UserName,
mail,
www,
RName,
LName,
ICQN,
Color,
Font,
UID,
InfoText: String;
IconType,
IconIndex: Integer;
Stat: TUserSt;
Icon: TIcon;
end;
...
procedure ...
var
sb: TSysBlock;
begin
...
Client.SendBuffer(sb,SizeOf(sb));
end;
TiDUDPClient.SendBuffer(...), Проблема!
Вот пытаюсь с поможью TiDUDPClient послать буфер.
Посылаю так:
Код:
Как правильно этот буфер принять?
Я пытаюсь так:
Код:
procedure Tmain.ServerUDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
var
sb: TSysBlock;
begin
AData.ReadBuffer(sb,SizeOf(TSysBlock));
...
end;
ABinding: TIdSocketHandle);
var
sb: TSysBlock;
begin
AData.ReadBuffer(sb,SizeOf(TSysBlock));
...
end;
Но принемается полная фигня!
Client.SendBuffer(sb,SizeOf(sb));
а читаешь
AData.ReadBuffer(sb,SizeOf(TSysBlock));
sizeof не совпадает.
Цитата:
Originally posted by rostyslav
ты посылаешь
Client.SendBuffer(sb,SizeOf(sb));
а читаешь
AData.ReadBuffer(sb,SizeOf(TSysBlock));
sizeof не совпадает.
ты посылаешь
Client.SendBuffer(sb,SizeOf(sb));
а читаешь
AData.ReadBuffer(sb,SizeOf(TSysBlock));
sizeof не совпадает.
SizeOf совпадает, потому что sb объявлена как статическая переменная. Но в чем проблема, я сказать не могу :(
Цитата:
Originally posted by Sagittarius
SizeOf совпадает, потому что sb объявлена как статическая переменная. Но в чем проблема, я сказать не могу :(
SizeOf совпадает, потому что sb объявлена как статическая переменная. Но в чем проблема, я сказать не могу :(
хорошо. пусть будет по твоему. :) sizeof-ы совпадают. но что скажешь на переменные типа String?
они скорей всего имеют тип AnsiString.
Цитата:
Originally posted by rostyslav
хорошо. пусть будет по твоему. :) sizeof-ы совпадают. но что скажешь на переменные типа String?
они скорей всего имеют тип AnsiString.
хорошо. пусть будет по твоему. :) sizeof-ы совпадают. но что скажешь на переменные типа String?
они скорей всего имеют тип AnsiString.
Здесь ты, пожалуй прав. Поэтому, GooD, поменяй String На что-нибудь более сносное, типа Array [1..1000] of Char или, если тебе так нравится ShortString