Вопрос по префиксам для лог. программ

[UA3GDW]

Здесь описание процедур и функций qrz32.dll.: http://files.ur5eqf.com/UQRZSearch.rar.
Виснет при вызове функции QRZSearch, на некоторых, позывных.

Код Ваш не корректный:

function QRZSearch(Mode: integer; Key1: string; Key2: string; Key3: string;
  var Found: PChar; Fmt: integer): Integer; stdcall;
begin
  if LibHandle = 0 then
  begin
    Result := -1;
    Exit;
  end;
  Result := _QRZSearch(Mode, PChar(Key1), PChar(Key2), PChar(Key3), Found, Fmt);
end;

Я бы написал вот так:

function QRZSearch(Mode, Fmt: Integer; Key1, Key2, Key3: String; var Found: String): Integer;
var
  szBuf: array [0...1024] of Char;
begin
  Result := -1;

  if (LibHandle <> 0) and (@_QRZSearch <> nil) then  
    begin
      Result := _QRZSearch(Mode, PChar(Key1), PChar(Key2), PChar(Key3), @szBuf, Fmt);
      Found := szBuf;
    end;
end;

И так как библиотека загружается в секции initialization модуля, то смысл в динамической загрузке теряется.

[UR5EQF]

Спасибо, попробовал так. И так виснет......
Я написал свой обработчик, может кому пригодиться:
http://ur5eqf.com/index.php?option=c...d=56&Itemid=84