Перейти к содержанию

Slym

Пользователи
  • Активность

    70
  • Зарегистрирован

  • Посещение

  • Победитель дней

    10

Slym стал победителем дня 5 апреля

Slym имел наиболее популярный контент!

Информация о Slym

  • Звание
    Продвинутый пользователь

Посетители профиля

Блок последних пользователей отключён и не показывается другим пользователям.

  1. Slym

    multicast udp

    А в инде все готово... procedure TForm1.FormCreate(Sender: TObject); begin IdUDPServer1.ReuseSocket:=TIdReuseSocket.rsTrue; IdUDPServer1.DefaultPort:=9898; IdUDPServer1.Active:=true; end; procedure TForm1.IdUDPServer1AfterBind(Sender: TObject); begin IdUDPServer1.Bindings[0].AddMulticastMembership('224.0.0.50'); end;
  2. Slym

    multicast udp

    https://habr.com/ru/post/141021/ ключевой момент "Подключение к группе"
  3. tmemo убери! TStringList возьми. распарсить без визуальных компонент! т.е. пока парсишь ничего ListBox не добавляешь 1. Данные сохраняем в TStringList 2. в потоке парсим и добавляем в другой TStringList Item.Text '=' item.ItemData.Detail 3. в основном потоке вынимаем строки из второго TStringList в ListBox
  4. выкинуть визуальные компоненты из парсинга (memo) и в отдельный тред...
  5. обычно ничего не получается сопровождается текстом: 'Ошибка сети: '+E.Message или lResponse.StatusCode Почувствуй разницу: у мена ошибка с текстом " " в строке n, снифаю - все уходит но не сервер не сохраняет, помогите мне, ой все! ничего не работает! вот мой высер, доделайте за меня... ну че, слабаки! не могете?
  6. Нашел - Штрихи в текстах из той же оперы, кто-то еще округлял размеры и положение (найти не могу)
  7. Лечение уже обсуждалось, что-то найти не могу... у формы Fill сбрасываем в дефолт, любая заливка формы через отдельный ректангл.
  8. SharedActivity.startActivityForResult(intent, 0); результат получаешь в TMessageResultNotification intent.getStringExtra("SCAN_RESULT"); intent.getStringExtra("SCAN_RESULT_FORMAT");
  9. function IntEncode(const S, pwd: String): String; var i, iimax: integer; B, BPwd: TBytes; begin B:= TEncoding.Default.GetBytes(S); BPwd:= System.Hash.THashMD5.GetHashBytes(pwd); iimax:= High(BPwd); for i:= Low(B) to High(B) do B[i]:= B[i] Xor BPwd[i Mod iimax]; result:= TNetEncoding.Base64.EncodeBytesToString(B); end; TBytes "магический" тип как строка: работает +
  10. 1. for i:= low(s) to high(S) do 2. не шифруй строку - шифруй байты B:=TEncoding.Default.GetBytes(S); $0030 (0) XOR $D0AF (Я) = $D09f - это блин шифрация половина текста плаинтекстом? у тебя хэш из латиницы с нулями в hi байте... 0 xor i = i русский текст есть в D0 и D1 диапазонах - так что HashString фикция делай на TBytes там нолей рандом
  11. Slym

    NetHTTPClient Compression?

    Это "не стандартное" поведение, обычно клиент не сжимает, но RFC это не запрещает... но проверь поймет ли сервер твой запрос я использую deflate, gzip это тотже deflate столько с заголовками и CRC и заморочек в связи с этим больше... function CompressData(const Data:TBytes):TBytes; var Source, Dest:TBytesStream; begin Dest:= TBytesStream.Create; try Source:=TBytesStream.Create(Data); try ZCompressStream(Source, Dest, zcMax); finally Source.Free; end; Dest.Size:=Dest.Size; result:=Dest.Bytes; finally Dest.Free; end; end; //AHTUNG! Non standart Request Header (with standart Name)! If truble - Rename то X-Content-Encoding var Params:TBytes; if length(Params)>MinCompressionSize then begin Params:=CompressData(Params); NetHeaders.Value['Content-Encoding']:='deflate'; end;
  12. TMessageResultNotification... see more FMX.InAppPurchase.Android.pas в сообщении прилетит Intent а там по документации... http://fire-monkey.ru/topic/3183-opendialog-для-мобильных-платформ/#comment-37609
  13. заставлять надо TFDConnection, смотри charset* настройки конекшена
  14. System.SysUtils.TOSVersion.Architecture SizeOf(NativeInt)=8
×
×
  • Создать...