pOsOl,


Вот текст dpr-ки, которая компилируется в dll.

Код

library OnExit1; {$APPTYPE CONSOLE} uses   SysUtils, Classes, IniFiles; var   Ini: TIniFile;   MasI: Array [0..99] of Integer;   MasS: Array [0..99] of String; procedure CodeExecute; begin   Ini:= TIniFile.Create ('C:\Program Files\Borland\Delphi7\Projects\Simulation\params.ini');   MasI[0]:= Ini.ReadInteger ('Integer', 'Var1', 0);   MasI[1]:= Ini.ReadInteger ('Integer', 'Var2', 0);   MasI[2]:= Ini.ReadInteger ('Integer', 'Var3', 0);   MasI[3]:= Ini.ReadInteger ('Integer', 'Const1', 0);   MasS[0]:= Ini.ReadString('String', 'In1.DestPort', '');   MasI[1]:= 34;   MasI[0]:= MasI[1] div 2;   MasI[2]:= 1;      Ini.WriteInteger ('Integer', 'Var1', MasI[0]);   Ini.WriteInteger ('Integer', 'Var2', MasI[1]);   Ini.WriteInteger ('Integer', 'Var3', MasI[2]);   Ini.WriteInteger ('Integer', 'Const1', MasI[3]);   Ini.WriteString ('String', 'In1.DestPort', MasS[0]);   Ini.Free; end; exports   CodeExecute index 1; begin end. [b] Вот загрузка [/b]   FExitHandle:= LoadLibrary (PChar (Dir + 'OnExit' + IntToStr (FID) + '.dll'));   if (FExitHandle >= 32)   then begin     FLoadedExit:= True;     FExitProc:= GetProcAddress (FExitHandle, 'CodeExecute');   end   else begin     if (MessageDlg ('Error', mtError, [mbOk], 0) = mrOK)     then FLoadedExit:= False;   end;

вызов такой:

if FLoadedExit
then FExitProc;

Я заказал fastScript кстати, так и не разобравшись с dll-ками . Если увидишь, где косяки, пиши, буду очень рад.
p0s0l

Это сообщение отредактировал(а) Girder - 1.9.2005, 21:15

То что написано - то всё верно. Ошибка у тебя где-то зарыта не тут, где-то вкралась не заметно... Тебе её всё равно придётся найти, т.к. если ты просто заменишь вызов функции из DLL на выполнение скрипта, тормоза будут эти же самые, даже больше.

Для убедительности прикрепляю файлик, открывай Project1.dpr и запускай его. Там ты увидишь, что вызов приведенной тобой функции из DLL нисколько не тормозит (200 вызовов за 170 мс), в то время как запуск .exe 200 раз выполняется за 4-5 сек... Как у тебя 10 секунд получается - не знаю даже...

Присоединённый файл ( Кол-во скачиваний: 4 )
 DLL.ZIP 7,90 Kb