DLL в Delphi

[Stilet]

Как пробовал?
Чем ругается?

[RuVarez]

Втом то и дело что ничем!!! При запуске разу же закрывает приложение))

[GunSmoker]

Ваша вера в наши телепатические способности помогает решению вашей проблемы.

.... опоздал.


Закрывает приложение при запуске из-под отладчика или в свободном прогоне?

Закрывает приложение при старте даже при дин. загрузке? Вы или врёте или ставьте бряк на код и по шагам гоните.

[RuVarez]

Лучше б помог))))))))))))))

Закрывает в любом случае - что так, что так без каких либо сообщений!

[GunSmoker]

Даже при динамической загрузке и бряк не срабатывает?

Вы врёте.

[RuVarez]

Код на первой странице!Посмотри

Извини пример не могу кинуть!Мне ее еше продавать))

[Stilet]

RuVarez

Попробуй на пустом проекте через LoadLibrary загрузить ту библу - упадет?
если да - Библу в топку

[RuVarez]

Неа!Не фурикает! Получается допустим у мня функция используется при нажатии кнопки.

1--------
procedure TFPC.Button4Click(Sender: TObject);
begin
X_Rep_FP3530;
end;
2------------------------------
procedure TFPC.X_Rep_FP3530;
begin
InitFPort(Strtoint(Settings.FPC_COM .Items.text),Strtoint(Settings.FPC_ Baude.Text));
FiscalClosure(0,f,0,'2');
CloseFPort();
end;

Загрузка:

function InitFPort(Port,Baud : Integer) : Integer ; stdcall ; external 'fpl.dll' name 'InitFPort';
function CloseFPort : Integer;stdcall;external 'fpl.dll' name 'CloseFPort';
function FiscalClosure(H : HWND; fun : Integer;C : LPARAM;TypeReport : Char) : Integer;stdcall;external 'fpl.dll' name 'FiscalClosure';

Если 1 закоментировать запуск приложения идет.

[Stilet]

Неа!Не фурикает!

LoadLibrary сбоит?

[RuVarez]

Все кажись разобрался!) Выбевает Acces violation но это из-за того что у мня фискальный регистратор не подключен!Спасибо)