Critical error dll функции

Новый комментарий
 

Здравствуйте !

Использую dll библиотеку --> https://www.mql5.com/ru/code/7084, ITTPSymbol.dll

код библиотеки : 

library ITTPSymbol;
 
 uses classes, Dialogs,sysutils;



{$r *.res}
function CreateFile(Path: Pchar ;  Symbol: Pchar;  Priсe: integer ): integer; stdcall;
 
var outfile: TextFile;
 
begin
AssignFile(outfile, string(Path)+'\' + string(Symbol) + '.txt');
 
 try
   Rewrite(outfile);
   writeln(outfile, Priсe);
   CloseFile(outfile);
   Result:=0;
 except
   Result:=1;
 end;
   Result:=0;
 
end;
 
exports CreateFile;
 
end.

в коде использую все как написано : 

#import "ITTPSymbol.dll"  
    int CreateFile(string Path, string symbol, int Priсe);

//вызов функции 
CreateFile(Path, Symbol(), Price);

работает нормально, создает текстовый файл txt, записывает данные

но проблема в том что время от времени в журнале вылетает ошибка :

function 'CreateFile' call from dll 'ITTPSymbol.dll' critical error
expert stopped

и все.

В чем проблема ? в чем фишка, если 90 % времени работы все нормально, а потом хоп и ошибка.... как можно исправить ?

 

Дебаг в помощь. Скорее всего трабла в строчке с AssignFile

А так можно? 

string(Path)

Спрашиваю на всякий случай, т.к. на делфи кодил оочень давно.

 

Я сам в делфи не очень, скачал уже готовую функцию

потому вообщем и вынес на общее рассмотрение проблемы, кто больше в данной теме шарит.

Новый комментарий