Перенос библиотеки dll на Win 7

[Vahmur]

Здравствуйте. У меня маленькая есть функция для копирования файлов. Использую её для вызова из другого языка (MQL4), т.к. сам он умеет работать с файлами только в папке, где установлен. Под Win XP всё работало (компилировал в Delphi 7), но когда перешёл на Win 7, работать перестало. Мне посоветовали откомпилировать библиотеку с помощью Delphi 2009. Компиляция проходит, но ничего не работает. Подскажите в чём проблема? Вот код:

function FCopy(fn1,fn2: PChar) : integer;  stdcall;
  var fnam1,fnam2 : String;
  var f1,f2       : file of byte;
  var g           : byte;
  var k           : integer;
begin
  fnam1:=StrPas(fn1);
  fnam2:=StrPas(fn2);

  if FileExists(fnam1) then
     begin
     AssignFile (f1, fnam1);
     Reset(f1);
     AssignFile (f2, fnam2);
     Rewrite(f2); 
     while not(Eof(f1)) do
        begin
        Read(f1,g);
        Write(f2,g);
        end;
     CloseFile(f1);
     CloseFile(f2);
     k:=1
     end else k:=-1;

  Result:=k;

end;

[veniside]

> только в папке, где установлен. Под Win XP всё работало (компилировал в Delphi 7), но когда перешёл на Win 7, работать перестало

если этот MQL4 установлен в Program Files, то, скорей всего, просто нет прав на открытие файлов в этом каталоге.

[Vahmur]

Нет, MQL4 этоя язык торгового терминала, установлен в папке D:\Metatrader\

[GunSmoker]

Сообщение от Vahmur

работать перестало

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

Спасибо, что видите в нас яркие телепатические способности.

[MotoArhangel]

Vahmur
Да уж, проект хоть с правами админа побывал запустить? Это вам не XP)
У меня телепатические способности на 99% развиты=)

[FaTaL]

А зачем в библиотеке не использовать простую функцию CopyFile?
Типо:

function FCopy(fn1,fn2: string) : integer;  stdcall;
begin
  result := CopyFile (Pchar (fn1), PChar (fn2), false);
end;

[Stilet]

но когда перешёл на Win 7, работать перестало.

может быть нужно эту программу запускать от имени администратора? есть в семерке такой прикол, я так с EQL возился на кассовых аппаратах, в результате от Севена отказались.

[Vahmur]

Попобовал немного изменить код, чтобы узнать получает ли функция хоть какие-либо значения и запускается ли вообще

function FCopy(fn1,fn2: PChar) : integer;  stdcall;
  var fnam1,fnam2 : String;
  var f3          : System.Text;

begin
  fnam1:=StrPas(fn1);
  fnam2:=StrPas(fn2);

AssignFile (f3, '123.txt');
Rewrite(f3);
Writeln(f3,fnam1);
Writeln(f3,fn1);
Writeln(f3,fnam2);
Writeln(f3,fn2);
CloseFile(f3);

  Result:=20;
end;

Вызывал функцию командой: int copyini = FCopy("D:\metatrader\main\experts\l ibraries\optimum.ex4","C:\optimum.e x4");
в результирующий файл '123.txt' были записаны следующие строки:

????????????????????????????????4?? ????????????????????????????????U?? ??????????????????????????????????? ?????????JK???y
????????????????????????????????4?? ????????????????????????????????U?? ??????????????????????????????????? ?????????JK???y
?????????????????????????????????U? ??????????????????????????????????? ??????????JK???y
?????????????????????????????????U? ??????????????????????????????????? ??????????JK???y



Затем изменил тип входящих переменных с PChar на ShortString

function FCopy(fn1,fn2: ShortString) : integer;  stdcall;
  var fnam1,fnam2 : String;
  var f3          : System.Text;

begin
  fnam1:=StrPas(fn1);
  fnam2:=StrPas(fn2);

AssignFile (f3, '123.txt');
Rewrite(f3);
Writeln(f3,fnam1);
Writeln(f3,fn1);
Writeln(f3,fnam2);
Writeln(f3,fn2);
CloseFile(f3);

  Result:=20;
end;

в результирующий файл '123.txt' были записаны следующие строки:
:\webshare\WWWROOT\metatrader\main\ experts\libraries\optimum.ex4 SSC
:\webshare\WWWROOT\metatrader\main\ experts\libraries\optimum.ex4 SSC
:\optimum.ex4 eрезультат= M4|l?~ы†sјјГн?ЦЕm4Ђ·м?р§ЖK7‰н5|
d*< ь
:\optimum.ex4 eрезультат= M4|l?~ы†sјјГн?ЦЕm4Ђ·м?р§ЖK7‰н5|
d*< ь

Сообщение от FaTaL

А зачем в библиотеке не использовать простую функцию CopyFile?
Типо:

function FCopy(fn1,fn2: string) : integer;  stdcall;
begin
  result := CopyFile (Pchar (fn1), PChar (fn2), false);
end;

Если тип входящих переменных указать string, то функция вообще не запускается, а вызывающая программа виснет. Я так понимаю, что возникает проблема с кодировкой. Помогите решить.

[GunSmoker]

У тебя была проблема - перенос программы под D7. Вот её и решай.

Ты же взял и ухудшил эту проблему введением новой - переход на D2009 (а значит - на Unicode).

И хотя само по себе действие правильное (переход на D2009), но делать его надо отдельно. Ты сначала проект в D7 поправь, чтобы он на Win7 работал, а уж потом делай переход на D2009.