Вопросы по компиляции SAS

[zed]

Не, спасибо, я пока что для этого не созрел

Ну вот так всегда.

Работы много, а профита ноль (для меня лично). Пока что у меня и так хватает нереализованных идей, которые требуют времени.

Но может кто-то попробует сделать. Я так думаю, что обратная совместимость с D2007 пострадать не должна и должно будет компилиться в обоих версиях.

[vdemidov]

Посмотрел на тему строк. В юните u_GPSModuleByVSAGPS и в своих либах vasketsov по своей привычке напихал кучу работы с указателями и в частности со строками. Причем написано PChar, а нигде не учитывается что он может быть больше одного байта.
Вот яркий пример:

скрытый текст: показать

Код: Выделить всё

  procedure _AllocA(const s: String);
  var dwLen: DWORD;
  begin
    if (nil<>AParamsOut.AStrResult) then begin
      VSAGPS_FreeMem(AParamsOut.AStrResult);
      AParamsOut.AStrResult:=nil;
    end;
    dwLen:=Length(s);
    AParamsOut.AStrResult:=VSAGPS_GetMem(dwLen+1);
    CopyMemory(AParamsOut.AStrResult, PChar(s), dwLen);
    AParamsOut.AStrResult[dwLen]:=#0;
  end;

[zed]

Одно из двух:
1. Попросить его адаптировать всё для совместимости с XE2
2. Не дожидаясь никого дописать ansi, аналогично, как это придётся делать в SAS.

Там, в составе alcinoe, кстати, утилитка идёт, которая сама автоматом всё исправляет и прописывает свои модули с реализацией функций для работы с анси.

[vasketsov]

адаптировать всё для совместимости с XE2

Если предположить, что гуя там нигде нет, то достаточно будет везде прописать Ansi?
Или же пойти по другому пути, и вкорячить SizeOf(Char), чтобы сама среда это разруливала?

[vdemidov]

Если предположить, что гуя там нигде нет, то достаточно будет везде прописать Ansi?

Скорее всего будет достаточно, но нужно внимательно смотреть на вызовы процедур и функций из юнита Windows. И возможно явно прописывать в имени функции суффикс A.

[zed]

Кстати, в XE2 ансишные строки тоже с изюминкой - они содержат кодовую страницу и если задействовать её, можно получить плюшки. К примеру, если вместо простого AnsiString использовать:

Код: Выделить всё

{$ifdef UNICODE}
  RawUTF8 = type AnsiString(CP_UTF8); // Codepage for an UTF8string
{$else}
  RawUTF8 = type AnsiString; 
{$endif}

... то при всех преобразованиях UnicodeString -> RawUTF8 мы не потеряем данных и не получим нечитаемых символов.

Плюс, есть такая штука:

Код: Выделить всё

RawByteString = type AnsiString($FFFF);

это ансишная строка без какой-либо кодовой страницы. Можно использовать, там где используются строки для передачи данных (вместо TStream). Такое по-моему в JNXLib.pas сделано. А пример использования можно в LibTar.pas посмотреть.

[vdemidov]

После долгого ковыряния и подбора нужных версий библиотек. SAS таки скомпилился под Delphi XE2. И даже запустился. Правда пока не работает генерация урлов в паскаль скрипте, но это мелочи.

[zed]

Чую, грядут перемены

[garl]

очень хочется надеяться на "комплект всего" для неумелых
скачал поставил - победил.

[vdemidov]

Ой не скоро еще оно нормально в новой делфе заработает. Там такое количество граблей разбросано, что ой. В том числе, как ни стыдно это признавать, и мной.