[sVAR]

Есть элементарная dll-ка. Например:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

library www; uses SysUtils; //{$R *.res} procedure xxx(inf : pstring);stdcall; var str:ansistring; ft:textfile; begin   assignfile(ft,inf^);   reset(ft);   readln(ft,str);   closefile(ft); end; exports xxx; begin end.

Есть её подключение в exe-модуле:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

program test; {$APPTYPE CONSOLE} uses SysUtils;   procedure xxx(fname : pstring);stdcall;external 'www.dll';//procedure's initialization   label _FILE_MISSING; var ss:string; BEGIN     write('Enter textfile name (without extension .TXT) ');     readln(ss);     ss:=ss+'.txt';     if FileExists(ss)=false then goto _FILE_MISSING       writeln('Input file - ',ss);       xxx(@ss);       write('Proceed is SUCCESSFUL! '); _FILE_MISSING: END.

Проблема такова: при выполнении кода assignfile(ft,inf^) вылазит ошибка 'The specified file was not found'.
Я так понимаю, что у dll-модуля нет доступа к строковой переменной, указанной через поинтер inf^ потому, что она, наверное, не глобальная (т.е. не видима за пределами exe-модуля).

В любом случае, всё это - странно.

Подскажите, как быть и что делать. Или объясните, пожалуйста, в чём моё недопонимание.

[Bargest]

Стоит попробовать в целях дебага перед AssignFile вывести полученную строку через ShowMessage(inf^); или через WriteLn(inf^); Строка должна быть "видна", она же по адресу передается.
И проверить наличие файла в рабочей папке exe-файла.

UPD: только что скомпилировал Ваш код. У меня в Delphi XE работает нормально. Модифицировал всего чуть-чуть:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

program tst;   {$APPTYPE CONSOLE}   uses   SysUtils;   procedure xxx(fname : pstring);stdcall;external 'www.dll';//procedure's initialization   var ss: String;     i:integer;   begin    write('Enter textfile name (without extension .TXT) ');     readln(ss);     ss:=ss+'.txt';     if FileExists(ss) then     begin       writeln('Input file - ',ss);       xxx(@ss);       write('Proceed is SUCCESSFUL! ');       readln;     end; end.

Но сути это не должно менять. В теории может быть такое, что какая-то несостыковка с типами строк. Можно попробовать использовать функцию с таким заголовком:

Код:

1	procedure xxx(fname : AnsiString);stdcall;external 'www.dll';//procedure's initialization

Ну и соответственно поменять в DLL-ке (и использовать без "^") и ss сделать AnsiString для упрощения. Так у меня тоже работает.
Если же планируется изменение строки - передавать как VAR параметр.

[sVAR]

Спасибо большое за быстрый отклик, но я уже сам разобрался.

В действительности проблема была в кодировке, которая идёт для русского языка через консоль (там вроде используется cp866).

Дело в том, что я не глянул, что проблема только с файлами с русскоязычными названиями.

А к общему итогу, действительно использовать нужно ansistring и pansistring и всегда будет порядок!