Crystal Reports VCL XI und Delphi 2009

[Samashy]

Zitat von toms:

Zitat von Samashy:

Ändere ich alles AnsiChar und AnsiString, kann die Version nicht mehr ermittelt werden.

Hallo Romy, was meinst du damit? Wie wird die Version ermittelt?

Ich hänge beim Umschreiben der VCL doch an einer anderen Stelle.

Es kann kein Printjob gefunden werden. Die Fehlermeldung ist witzig... bestand erst aus chinesischen Zeichen und nun nach AnsiStringnutzung aus ???????

Egal...

Delphi-Quellcode:

{Open the Main PrintJob}
    FPrintJob := FCrpeEngine.PEOpenPrintJob(PChar(FReportName));
    FPrintJobs[0] := IntToStr(FPrintJob);
    {If PrintJob is zero, generate error}
    if FPrintJob = 0 then
    begin
      Result := False;
      case GetErrorMsg(0,errNoOption,errEngine,'','OpenPrintJob <PEOpenPrintJob>') of
        errIgnore : Exit;
        errAbort  : Abort;
        errRaise  : raise ECrpeError.Create(FLastErrorNumber, FLastErrorString);
      end;
    end;

Hier kommt für FPrintJOb 0 raus.

Delphi-Quellcode:

function TCrpeEngine.PEOpenPrintJob (reportFilePath : PChar): Smallint;
var
  CrpeOpenPrintJob : TFarProc;
begin
  CRDEngineError('');
  Result := -1;
  {Check if Engine is loaded}
  if CRDEngine = 0 then
  begin
    CRDEngineError(CRD_ENGINE_NOT_LOADED);
    Exit;
  end;
  CrpeOpenPrintJob := GetProcAddress(CRDEngine, 'PEOpenPrintJob');
  if CrpeOpenPrintJob = nil then
    CRDEngineError('PEOpenPrintJob')
  else
    Result := TPEOpenPrintJob(CrpeOpenPrintJob)(reportFilePath);
end;

GetProcAddress ermittelt eine Adresse. Ich verstehe aber nicht wie der Aufruf für das Result funktioniert.
TPEOpenPrintJob = function (reportFilePath: PChar): SmallInt; stdcall;
Bitte bitte helft.