Lazarus 1.6.4 и библиотеки ВербаOW

[bormant]

выделяется в куче адрес, а потом по нему выкладывается строка

Никаких куч для литералов.

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

{$mode ObjFPC}{$H+}
begin
  WriteLn(PChar('F:'))
end.


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

_DATA      SEGMENT   DWORD PUBLIC USE32 'DATA'
   ALIGN 4
_$PROGRAM$_Ld1      DB   "F:",0
_DATA      ENDS


Добавлено спустя 7 минут 27 секунд:
FPC 3.0.2:

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

{$mode ObjFPC}{$H+}
procedure InitKey(key_dev: PChar; key_ID: PChar); stdcall;
begin
  WriteLn(key_dev);
end;
begin
  InitKey(PChar('F:'), 'SomeID');
end.


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

_CODE      SEGMENT   PARA PUBLIC USE32 'CODE'
   ALIGN 16
   PUBLIC   PASCALMAIN
PASCALMAIN:
   PUBLIC   _main
_main:
   ...
; [7] InitKey(PChar('F:'), 'SomeID');
      mov   eax,offset _$PROGRAM$_Ld1
      push   eax
      mov   eax,offset _$PROGRAM$_Ld2
      push   eax
      call   P$PROGRAM_$$_INITKEY$PCHAR$PCHAR
   ...
_CODE      ENDS


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

_DATA      SEGMENT   DWORD PUBLIC USE32 'DATA'
   ALIGN 4
_$PROGRAM$_Ld1      DB   "SomeID",0
_DATA      ENDS

_DATA      SEGMENT   DWORD PUBLIC USE32 'DATA'
   ALIGN 4
_$PROGRAM$_Ld2      DB   "F:",0
_DATA      ENDS


Добавлено спустя 22 минуты 52 секунды:

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

{$mode ObjFPC}{$H+}
procedure InitKey(key_dev: PChar; key_ID: PChar); stdcall; external 'a.dll' name 'InitKey';
var s: String;
begin
  s:='SomeID';
  InitKey('F:\', PChar(s));
end.


FPC 3.0.2:

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

   EXTRN   FPC_EMPTYCHAR: NEAR
   EXTRN   _$dll$a$InitKey: NEAR

_CODE      SEGMENT   PARA PUBLIC USE32 'CODE'
   ALIGN 16
   PUBLIC   PASCALMAIN
PASCALMAIN:
   PUBLIC   _main
_main:
   ...
; [5] s:='SomeID';
      mov   eax,offset _$PROGRAM$_Ld1
      mov   edx,eax
      mov   eax,offset U_$P$PROGRAM_$$_S
      call   fpc_ansistr_assign
; [6] InitKey('F:\', PChar(s));
      mov   eax,dword ptr [U_$P$PROGRAM_$$_S]
      test   eax,eax
      jne   @@j13
      mov   eax,offset FPC_EMPTYCHAR
@@j13:
      push   eax
      mov   eax,offset _$PROGRAM$_Ld2
      push   eax
      call   _$dll$a$InitKey
   ...
_CODE      ENDS


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

_BSS      SEGMENT   DWORD PUBLIC USE32 'BSS'
   ALIGN 4
U_$P$PROGRAM_$$_S   DB   4 DUP(?)
_BSS      ENDS

_DATA      SEGMENT   DWORD PUBLIC USE32 'DATA'
   ALIGN 4
   DW   0,1
   DD   -1,6
_$PROGRAM$_Ld1      DB   "SomeID",0
_DATA      ENDS

_DATA      SEGMENT   DWORD PUBLIC USE32 'DATA'
   ALIGN 4
_$PROGRAM$_Ld2      DB   "F:\",0
_DATA      ENDS


[gvido]

Добавлено спустя 22 минуты 52 секунды:Код: Выделить всё{$mode ObjFPC}{$H+}procedure InitKey(key_dev: PChar; key_ID: PChar); stdcall; external 'a.dll' name 'InitKey';var s: String;begin s:='SomeID'; InitKey('F:\', PChar(s));end

Я так понимаю что a.dll создана в лзарус с fpc 3.0.2? Вполне может быть, что в этом случае грабли с передачей параметров из приложения в функцию dll выпрямляются в dll. То есть срабатывает некая взаимная компенсация, так сказать...

Возможно я не прав. Возможно в C dll есть какие-то ошибки не учтенные разработчиком, которые проявились только сейчас.

[bormant]

gvido,
a.dll отсутствует. Ее наличие для компиляции не требуется. Поскольку вся необходимая информация есть в исходнике, компилятор и линковщик в состоянии построить исполняемый файл, содержащий код загрузки указанной библиотеки при запуске исполняемого файла.

[gvido]

Завтра попрошу, коллегу собрать на С dll c выводом входящих параметров в текстовый файл.
По другому, похоже, никак.
Чудес то не бывает. Где-то есть косяк и его нужно найти. А потом уже думать как выкручиваться.

[bormant]

FPC-шная библиотека аномалий не обнаруживает:

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

{$mode ObjFPC}{$H+}
library a;
procedure InitKey(key_dev: PChar; key_ID: PChar); stdcall;
begin
  WriteLn('key_dev: ',key_dev);
  WriteLn('key_ID: ',key_ID);
end;
exports
  InitKey;
end.


Добавлено спустя 57 секунд:

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

key_dev: F:
key_ID: SomeID


Добавлено спустя 8 минут 53 секунды:
Ежели нет доверия WriteLn, можно и так вывести:

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

{$mode ObjFPC}{$H+}
library a;
procedure InitKey(key_dev, key_ID: Pointer); stdcall;
  procedure show(p: PChar);
  begin
    if p<>nil then begin
      while p^<>#0 do begin Write(p^); Inc(p); end; WriteLn;
    end;
  end;
begin
  show(key_dev); show(key_ID);
end;
exports
  InitKey;
end.


[gvido]

Что-то изменилось в связке лазарус и фпс начиная с 1.4.4. Я хочу понять что и как это обойти или исправить. Библиотеке 12 лет. Вот в чем дело.

[bormant]

Вызывающая (вероятно неправильно) сторона у вас есть. Оставьте там только вызов InitKey.
Подсуньте ей библиотеку, собранную в FPC из комстроки (вдруг какие-то опции в Lazarus причиной)

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

{$mode ObjFPC}{$H+}
library a; //вписать правильное имя
function InitKey(a, b: Pointer): Word; stdcall;
  procedure show(p: PChar);
  begin
    if p=nil then WriteLn('NIL':4)
    else begin
      while p^<>#0 do begin
        Write(Ord(p^):4); Inc(p);
      end; WriteLn;
    end;
  end;
begin
  show(a); show(b); Result:=0;
end;
exports
  InitKey;
end.


и посмотрите, соответствуют ли коды переданного ожидаемым значениям.

Можно для верности библиотеку собрать старым FPC.

[gvido]

Это хорошая идея. Для верности хочу в dll вообще исключить паскаль.

[olegy123]

Можно для верности библиотеку собрать старым FPC.

Помоему вы пытаетесь хакнуть кодогенератор. а когда найдете где ответ - начнете патчить. в итоге окажется, что все уже есть и директивы и правила прописаны.

такой тест:

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

const disk_f:array[0..3] of byte = ($x,$x,$x,0); // ($x,$x,$x,0) = 'F:\'
InitKey(@disk_f,0);


на 100% доказывает что проблема не в передаче, а в чем то другом.

gvido не забывай полностью очищать пересобирать весь проект(rebuild), были фокусы когда пишешь одно, а программа все время работала по старому - занимаешься трассировкой. а указатель пляшет.

[gvido]

const disk_f:array[0..3] of byte = ($x,$x,$x,0); // ($x,$x,$x,0) = 'F:\'
InitKey(@disk_f,0);

Это вариант я пробовал, результат тот же. И второй параметр в таком виде компилятор не пропускает.

[olegy123]

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

const disk_f:array[0..3] of byte = ($x,$x,$x,0); // ($x,$x,$x,0) = 'F:'
InitKey(@disk_f,nil);

Добавлено спустя 2 минуты 12 секунд:
сейчас заметил что вы во второй параметр пихаете, что папало..
NULL=nil=0

Добавлено спустя 5 минут 31 секунду:
C lazarus -ом, и не только с ним.. даже на php..
по поводу строк: если вы пишите код в UTF8 и потом пытаетесь с текстом работать как ANSI -ждите приключений. Как наоборот.. открываете ANSI как UTF - а у вас там шифр.

[vitaly_l]

Для верности хочу в dll вообще исключить паскаль.

Все параметры в DLL передаются и DLL их читает. Ошибки в компиляторе нет.
Но судя по её ответу ( E_GK ['Ошибка GK.'] ), DLL - не может из переданных параметров сгенерировать ключ
(в смысле она работает и возвращает ответ).

Попробуйте принудительно передать для DLL строку в кодировке системы, с помощью UTF8ToWinCP (несмотря на латиницу).
Именно вот так передать, а не так как Вы пробовали:

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

var s,k: String; // и обязательно попробуйте здесь WideString - это для версии 3:0 и выше.
begin
   s := UTF8ToWinCP('F:\');
   k := UTF8ToWinCP('тестовый параметр');
   err_code:=InitKey(PChar(s),PChar(k));


Есть ли у Вас тестовый пример от создателя DLL, в котором он приводит правильный тестовый пример заполнения переменных для запроса к InitKey?
Это разве правильно, что второй параметр = nil или = пустой ''; ?
И перед компилированием нажмите "очистить и собрать".

.

[gvido]

Есть ли у Вас тестовый пример от создателя DLL, в котором он приводит правильный тестовый пример заполнения переменных для запроса к InitKey?
Это разве правильно, что второй параметр = nil или = пустой ''; ?
И перед компилированием нажмите "очистить и собрать".

Второй параметр принимает либо пустую строку и тогда грузятся все ключи с носителя, либо конкретный ключь 10 или 12 символов.
UTF8ToWinCP пробовал еще до создания поста.

А каталог проекта, я сейчас зачищаю перед каждой компиляцией.

[vitaly_l]

пробовал еще до создания поста

Может быть всё наоборот и ей нужен UTF16? ( но вообще сомнительно, т.к. латиница должна везде работать )
Вот здесь НА ВСЯКИЙ СЛУЧАЙ почитайте: viewtopic.php?f=1&t=24720&p=121461&hilit=UTF8ToWinCP#p121461

.

[gvido]

Может быть всё наоборот и ей нужен UTF16? ( но вообще сомнительно, т.к. латиница должна везде работать )

Нет, точно не UTF16 сразу валится с ошибкой.
Пару раз при отладке проскакивал код проверки корректности дисковода. Видимо функция внутри dll сравнивает введенных диск с имеющимися съемными носителями. Что-то похожее на Get_Floppy_ID..
Пока рою дальше...