DLL radim sa XE 10.1 - ne može u D2007 jer mi treba FastReport
Program radim sa D2007 - ne može u XE 10.1 jer je prevelik da bi ga se prepisivalo
DLL:
...
procedure Ispis_Rjesenja_DLL(BrRjesenja: PChar); stdcall; export;
var IniP: string;
ti: TIniFile;
sn, s: string;
begin
sn := string(BrRjesenja); // pokušao sam razne kombinacije: StrPas();
end;
...
exports Ispis_Rjesenja_DLL;
begin
end.
Program:
...
procedure Ispis_Rjesenja_DLL(BrRjesenja: PChar); stdcall; external 'IspiRjesenja_DLL';
...
Procedure Ipis;
begin
Ispis_rjesenja_DLL(Pchar(BrRjesenja);
end;
U dll-u sn bude nečitljiv string - kineski znakovi.
Kada sam radio test program, ali u XE 10.1 sve radi kako treba, kada proceduru pozivam iz D2007 - problem sa parametrom "BrRjesenja".