Кружок нубов(Вопрос-Ответ)

[DeVolf]

//QaK:отдельная тема по подкючению пакетхака к серверу >>>>>>>>тут
любые вопросы по данной тематике в этом топе будут удаляться без предупреждения.

const
mp='8A 1B 15 01 10';
hp='8A 1A 15 01 10';
begin
if fromclient and (pck[1]=#$38#$F5#$00#$EF#$00#$00#$00#$03#$00#$00#$00) then
begin
buf:=hstr(hp);
SendToServer;
end;
if fromclient and (pck[2]=#$33#$F5#$00#$EF#$00#$40#$00#$03#$00#$00#$00) then
begin
buf:=hstr(mp);
SendToServer;
end;
end.

где я ошибся?

[supernewbie]

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

Такой вопрос... У меня есть Memo с текстом. Мне из него нужно послать текст (весь) в пакете. Как преобразовать текст из Memo в hex-последовательность?

WriteS(Memo.text);

[Kilatif]

dyh9l, да, грубо говоря Memo - расширенный Edit
supernewbie, пробовал, но в l2phx почему-то ругается на свойство Text у объекта Memo

[dyh9l]

хм.....я делал так, но у меня был эдит
buf:=#$38;
WriteS(Edit.text);
WriteD(TypeChat);
SendToServerEx(name);

мб там не text, a caption какой нибудь) щас делфю открою посмотрю, попробуй Memo.name

[J-Fobos]

Строка Memo1.Lines.Strings[i]

[Kilatif]

dyh9l, там есть, как предлагает Фобос, список строк. Но я думал может можно сразу текст преобразовать и не мучиться...

Кстати, о муках... Когда делаешь WriteS, то он добавляет признак конца файла? Т.е. #$00#$00 в конце? Если да.... То нужно как-то убирать эти 2 байта, что бы можно было записать несколько строк, как 1 текст...

[Breadfan]

А предварительно сформировать сумму строк, типа - all:=Memo1.Lines.strings[1]+Memo1.Lines.strings[2]+Memo1.Lines.strings[3]; и лишь затем - WriteS(all) - никак чтоль?

[Kilatif]

А если эта строка получится больше 255 символов, т.е. она не поместится в string? Я подумывал о всяких фокусах с массивом символов, но почему-то не получалось...

[Breadfan]

влезет еще как. На крайняк - Length тебя спасет
Оффтоп

for i:=1 to N do begin
  if (length(all)+length(string(i)))>255) then begin
     Send(all);
     all:=string(i);
  end else all:=all+String(i);
  end;
end;
Send(all);

- это если в чат чето длинное надо.

Кстати - откуда инфа про 255? По-моему это неверно

[Kilatif]

Объясню конкретнее.... Мне Memo нужен для отправки письма. Соответственно в Memo у меня будет текст письма. Тексты будут достаточно обширные. А еще учитывая что текст этот юникодовский, т.е. это WideString, то каждый символ будет занимать 2 байта.

Вот прям сейчас набросал типичное письмо, которое мне нужно посылать и оно уже получилось почти 400 байт. Так что нет, не поместится

//Breadfan: Откуда инфа про 255 байт-то?

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

Breadfan: Откуда инфа про 255 байт-то?

В обычный тип string помещается только 255 (или 256...) байт текста, не больше. По крайней мере это и в делфе и в обычном пасе. Может быть в FastScript по другому, но я так не думаю... В общем, решение я нашел. Вот, может кому пригодиться:

procedure WriteMemo(M_Buf : TMemo);
var i : integer;
begin
  for i := 0 to M_Buf.Lines.Count-1 do
    begin
      WriteS(M_Buf.Lines.Strings[i]);
      Delete(buf, length(buf) - 1, 2);
      buf := buf + #$0D#$00#$0A#$00;
    end;
    
  WriteS(M_Buf.Lines.Strings[M_Buf.Lines.Count]);
  Delete(buf, length(buf) - 1, 2);  
  buf := buf + #$00#$00;  
end;

Добавлено через 16 минут
У меня есть еще вопрос
Какой пакет отвечает за список членов клана? Ну и вообще за информацию о клане.

[Breadfan]

В пакете на отправку письма - поле текста имеет максимальный размер - 512 символов. НЕ БАЙТ, а именно 512 символов впихиваетса туда (по крайней мере в х5

Оффтоп

private static final int MAX_RECV_LENGTH = 16;//кому
    private static final int MAX_SUBJ_LENGTH = 128;//тема письма
    private static final int MAX_TEXT_LENGTH = 512;//текст письма
    private static final int MAX_ATTACHMENTS = 8;// вложения
........................................
if (_receiver.length() > MAX_RECV_LENGTH)
        {
            activeChar.sendPacket(SystemMessage.getSystemMessage(SystemMessageId.ALLOWED_LENGTH_FOR_RECIPIENT_EXCEEDED));
            return;
        }
        
        if (_subject.length() > MAX_SUBJ_LENGTH)
        {
            activeChar.sendPacket(SystemMessage.getSystemMessage(SystemMessageId.ALLOWED_LENGTH_FOR_TITLE_EXCEEDED));
            return;
        }
        
        if (_text.length() > MAX_TEXT_LENGTH)
        {
            // not found message for this
            activeChar.sendPacket(SystemMessage.getSystemMessage(SystemMessageId.ALLOWED_LENGTH_FOR_TITLE_EXCEEDED));
            return;
        }
        
        if (_items != null && _items.length > MAX_ATTACHMENTS)
        {
            activeChar.sendPacket(SystemMessage.getSystemMessage(SystemMessageId.ITEM_SELECTION_POSSIBLE_UP_TO_8));
            return; 

и ФС нормально это переваривает.