Перевод в байты delphi

[vladegorov7]

Подключился к серверу через сокеты. Получил кракозябры.
Как перевести их в массив байт?

[Smertig]

Каждая кракозябра имеет свой код символа. По одной переводи из символа в код, записывая в hex'е.

[ToRcH2565]

Цитата: Сообщение от vladegorov7 Подключился к серверу через сокеты. Получил кракозябры. Как перевести их в массив байт?

хм... а куда вы получили кракозябры? в строку(String)? очень не рекомендую читать в строку, лучше сразу в массив байт

[vladegorov7]

Цитата: Сообщение от ToRcH2565 хм... а куда вы получили кракозябры? в строку(String)? очень не рекомендую читать в строку, лучше сразу в массив байт

Выводил в листбокс через AnsiString. Попробую вашим способом. Спасибо)

Добавлено через 2 минуты

Цитата: Сообщение от Smertig Каждая кракозябра имеет свой код символа. По одной переводи из символа в код, записывая в hex'е.

Попробую. И еще вопрос. При подключении к разным серверам эти кракозябры немного изменяются. А конкретнее последняя. С чем это связано?

[Smertig]

Цитата: Сообщение от vladegorov7 Попробую. И еще вопрос. При подключении к разным серверам эти кракозябры немного изменяются. А конкретнее последняя. С чем это связано?

Пакет имеет определенную структуру, значения элементов которой могут быть разными для разных серверов. Почитайте темки в разделе разработчиков "ООГ Авторизация" от FreePvP

[vladegorov7]

Smertig, Спасибо. Почитаю

[vladegorov7]

Кому интересно, вот функция:

function StrToHex(source: String): String;
var
  i: Integer;
  c: Char;
  s: String;
begin
  s := '';
  for i := 1 to Length(source) do
  begin
    c := source[i];
    s := s + IntToHex(Integer(c), 2) + ' ';
  end;
  result := s;
end;

Спасибо всем за помощь.

[Ginrey]

а зачем сначало переводить в AnsiString , а потом в String?
если можно сразу читать прямиком с пойманного пакета

function ByteArrayToStr(Byte_: TByteArray): string;
var
  i: Integer;
begin
  if Length(Byte_)>0 then
    begin
      for i:=0 to Length(Byte_)-1 do
        if i<>Length(Byte_)-1 then
          Result:=Result+IntToHex(Byte_[i],2)+' '
        else
          Result:=Result+IntToHex(Byte_[i],2)
    end;
end;

[vladegorov7]

Ginrey, В натуре. Спасибо за подсказку

[ToRcH2565]

Цитата: Сообщение от Ginrey function ByteArrayToStr(Byte_: TByteArray): string;

я наверное единственный кто так не любит массивы и делает все на потоках Оо

[Ginrey]

ToRcH2565, а чем столь простой пример не устраивает, только пакет приходит и сразу переводим его куда нам нужно

[ToRcH2565]

Хм, щас у себя кусоче выдеру.... чтоб голословным не быть...

  while Sock.Connected do
  Begin
    buf:=Sock.IOHandler.ReadByte;
    BufferStream.Position:=BufferStream.Size;
    if Crypted then
    Begin
      buf:=S2C_RC4.RC4Code(buf);
      Unpacker.UnPack(buf,BufferStream);
    End else
      BufferStream.Write(buf,1);
    calculate;

    if PositionRead=BufferStream.Size then
    Begin
      PositionRead:=0;
      BufferStream.Clear;
    End;
  End;

  msg.Chat:=cmClan;
  pck.ReadByte;
  pck.ReadByte;
  msg.SenderUid:=pck.ReadUint;
  msg.Sender     :='';//m_GetNickByWID(msg.uid);
  msg.msg  :=pck.ReadCStr();
  if p_World.Notify.ContainsKey('onRecesiveMessage') then
    p_World.Notify['onRecesiveMessage'](@msg)
  else
    p_Logger.Add('Clan chat:-> '+msg.Sender+' : '+msg.msg,lgWarn);

Function TPWPacket.ReadCStr;
begin
  if size=0 then
    size:=ReadCui32;
  SetLength(Result,size div 2 );
  ReadBuffer(Result[1],size);
end;