Нужна помощь с работой с ClientSocket

[DjSeNseI]

Скажите плиз как можно отправить вот такой пакет :

function GSProtocolVersion;
begin
Result.Info := 'ProtocolVersion';
Result.Size := 261;
Result.Body := #$00+
#$90+#$02+#$00+#$00+
{#$03+#$00+#$00+#$00+} // мелк
#$09+#$07+#$54+#$56+#$03+#$09+#$0B+ #$01+#$07+#$02+#$54+#$54+#$56+#$07+ #$00+#$02+
#$55+#$56+#$00+#$51+#$00+#$53+#$57+ #$04+#$07+#$55+#$08+#$54+#$01+#$07+ #$01+#$53+
#$00+#$56+#$55+#$56+#$01+#$06+#$05+ #$04+#$51+#$03+#$08+#$51+#$08+#$51+ #$56+#$04+
#$54+#$06+#$55+#$08+#$02+#$09+#$51+ #$56+#$01+#$53+#$06+#$55+#$04+#$53+ #$00+#$56+
#$56+#$53+#$01+#$09+#$02+#$09+#$01+ #$51+#$54+#$51+#$09+#$55+#$56+#$09+ #$03+#$04+
#$07+#$05+#$55+#$04+#$06+#$55+#$04+ #$06+#$09+#$04+#$51+#$01+#$08+#$08+ #$06+#$05+
#$52+#$06+#$04+#$01+#$07+#$54+#$03+ #$06+#$52+#$55+#$06+#$55+#$55+#$51+ #$01+#$02+
#$04+#$54+#$03+#$55+#$54+#$01+#$57+ #$51+#$55+#$05+#$52+#$05+#$54+#$07+ #$51+#$51+
#$55+#$07+#$02+#$53+#$53+#$00+#$52+ #$05+#$52+#$07+#$01+#$54+#$00+#$03+ #$05+#$05+
#$08+#$06+#$05+#$05+#$06+#$03+#$00+ #$0D+#$08+#$01+#$07+#$09+#$03+#$51+ #$03+#$07+
#$53+#$09+#$51+#$06+#$07+#$54+#$0A+ #$50+#$56+#$02+#$52+#$04+#$05+#$55+ #$51+#$02+
#$53+#$00+#$08+#$54+#$04+#$52+#$56+ #$06+#$02+#$09+#$00+#$08+#$03+#$53+ #$56+#$01+
#$05+#$00+#$55+#$06+#$08+#$56+#$04+ #$0D+#$06+#$07+#$52+#$06+#$07+#$04+ #$0A+#$06+
#$01+#$04+#$54+#$04+#$00+#$05+#$02+ #$04+#$54+#$00+#$09+#$52+#$53+#$05+ #$04+#$01+
#$04+#$05+#$05+#$01+#$52+#$51+#$52+ #$0D+#$06+#$51+#$08+#$09+#$54+#$53+ #$00+#$0D+
#$01+#$02+#$03+#$54+#$53+#$01+#$05+ #$03+#$08+#$56+#$54+#$07+#$02+#$54+ #$0B+#$06;
end;

через ClientSocket на сервер...
Пожалуйста помогите мне

[DjSeNseI]

Мля народ помогите мне) Очень надо просто

[pro100-delphi]

Офигеть. Вопросец))

[s.Creator]

DjSeNseI
А по подробней можно?
У Вас что функция ничего не возвращает?

function GSProtocolVersion;

И какой тип Result а?
И что именно у Вас не получается? (как Вы пытаетесь передать пакет?)

[DjSeNseI]

И что именно у Вас не получается? (как Вы пытаетесь передать пакет?)

Вот я и спрашиваю как передать мне такой пакет на сервер при помощи ClientSocket или можно TcpClient

Вот кусок кода!

unit LSHandler;

interface
uses SysUtils, Functions;


type
TPacket = record
Body: String;
Size: Word;
Info: String;
end;

//Client -> GS
function GSProtocolVersion:TPacket;

var
Info,Body:string;
Size:Word;


implementation
uses unit1;



function GSProtocolVersion;
var
data: array[0..264] of byte ;
begin
Result.Info := 'ProtocolVersion';
Result.Size := 264;
Result.Body := #$00+
#$EA+#$02+#$00+#$00+#$09+#$07+#$54+ #$56+#$03+#$09+
#$0B+#$01+#$07+#$02+#$54+#$54+#$56+ #$07+#$00+#$02+#$55+#$56+#$00+#$53+ #$57+#$04+
#$07+#$55+#$08+#$54+#$01+#$07+#$01+ #$53+#$00+#$56+#$01+#$06+#$05+#$04+ #$51+#$03+
#$08+#$51+#$08+#$51+#$56+#$04+#$54+ #$06+#$55+#$08+#$02+#$09+#$51+#$56+ #$01+#$53+
#$06+#$55+#$04+#$53+#$00+#$56+#$56+ #$53+#$01+#$09+#$02+#$09+#$01+#$51+ #$54+#$51+
#$09+#$55+#$56+#$09+#$03+#$04+#$07+ #$05+#$55+#$04+#$06+#$55+#$04+#$06+ #$09+#$04+
#$53+#$00+#$56+#$56+#$53+#$01+#$09+ #$02+#$09+#$01+#$51+#$54+#$51+#$09+ #$55+#$56+
#$09+#$55+#$56+#$09+#$03+#$04+#$07+ #$05+#$55+#$04+#$06+#$55+#$04+#$06+ #$09+#$04+
#$51+#$01+#$08+#$08+#$06+#$05+#$52+ #$06+#$04+#$01+#$07+#$54+#$03+#$06+ #$52+#$55+
#$06+#$55+#$55+#$51+#$01+#$02+#$04+ #$54+#$03+#$55+#$54+#$01+#$57+#$51+ #$55+#$05+
#$52+#$05+#$54+#$07+#$51+#$51+#$55+ #$07+#$02+#$53+#$53+#$00+#$52+#$05+ #$52+#$07+
#$01+#$54+#$00+#$03+#$05+#$05+#$08+ #$06+#$05+#$05+#$06+#$03+#$00+#$0D+ #$08+#$01+
#$07+#$09+#$03+#$07+#$53+#$09+#$51+ #$06+#$07+#$54+#$0A+#$50+#$56+#$02+ #$52+#$04+
#$05+#$55+#$51+#$02+#$53+#$00+#$08+ #$54+#$04+#$52+#$56+#$06+#$02+#$09+ #$00+#$08+
#$53+#$56+#$01+#$05+#$00+#$55+#$06+ #$08+#$56+#$04+#$0D+#$06+#$07+#$52+ #$06+#$07+
#$04+#$0A+#$06+#$01+#$04+#$54+#$04+ #$00+#$05+#$02+#$04+#$54+#$00+#$09+ #$52+#$53+
#$05+#$04+#$01+#$04+#$05+#$05+#$01+ #$52+#$51+#$52+#$0D+#$06+#$51+#$08+ #$09+#$54+
#$53+#$01+#$05+#$03+#$08+#$56+#$54+ #$07+#$02+#$54+#$0B+#$06+#$DC+#$4F+ #$61+#$4F;


end;





end.

[Пепел Феникса]

загоняете в поток это все(аккуратнее со строками)
и посылаете

[DjSeNseI]

Пепел Феникса:
что ты сказал я так и не понял)

[Пепел Феникса]

в TMemoryStream загоняете то что нужно послать
потом навсякий TMemoryStream.Seek(0,0)
потом TClientSocket.SendStream(наш поток) (или TClientSocket.Socket.SendStream(наш поток) не помню точно)

З.Ы.:писал названия классов

[daxter]

ClientSocket.Socket.SendBuf(Result, SizeOf(Result));

[Пепел Феникса]

daxter, не все так просто...строки ведь у нас в 99% случаев это указатели(4 байта) а не сам текст