Announcement

**Bruno Danuseg** · 12.03.2002, 21:05

Hallo,
nein, das geht nicht. Es kommt der Fehler "Ung�ltige Metadatei"

**Mario.Noack** · 15.03.2002, 09:02

Hallo,
ich mache das jetzt so: ich habe mir in D3 eine DLL geschrieben, die nur die
alten Reports laden kann und benutze diese dann bei Bedarf aus D6 raus:
library QROldShow; 
// Delphi 3 DLL
uses 
 SysUtils, 
 Classes, 
 QrBonus;
procedure ShowReport(aFileName:
PChar); 
BEGIN 
 with TQRPHandler.Create do 
 begin 
 try 
  Filename := aFileName; 
  Preview; 
 Except 
  On E:Exception DO ShowException(E,@ShowReport); 
 end; 
 Free; 
 end; 
END;
exports 
 ShowReport;
begin
end.
 
program QReport; 
// Delphi 6 Programm
uses 
 Forms, 
 SysUtils, 
 Dialogs, 
 QrExtra;
Procedure LoadOldQR(FileName:
PChar); external 'QROldShow.dll' name 'ShowReport';
{$R *.RES} 
var F: file; 
 Buf: Array[1..128] of Byte; 
 QVer: Word; 
 QFileName: String;
begin
 Application.Initialize;
 IF ParamStr(1)
= '' Then 
begin 
 ShowMessage('Keine Datei gewählt!'); 
 halt; 
end;
 If FileExists(ParamStr(1))
Then 
Begin 
 IF LowerCase(ExtractFileExt(ParamStr(1))) = '.qrp' Then 
 BEGIN 
  QFileName := ParamStr(1); 
  AssignFile(F, ParamStr(1)); 
  Reset(F,4); 
  BlockRead(F, Buf, 4); 
  CloseFile(F); 
  QVer := (Buf[4] * 256 + Buf[3]);
  IF (QVer
>= 200) AND (QVer < 300) 
 THEN LoadOldQR(PChar(QFileName));
  IF (QVer
>= 350) AND (QVer < 400) 
 THEN 
 with TQRPHandler.Create do 
 try 
  Filename := QFileName; 
  Preview; 
 finally 
  Free; 
 end;
  IF
(QVer < 200) OR (QVer >= 400) 
 THEN MessageDlg('Die Datei "'+ParamStr(1)+'" benötigt
die QuickReport Version ' +   FloatToStr(QVer/100) + '.',mtError,[mbOK],0); 
 END 
 Else 
 BEGIN 
  MessageDlg('Datei "'+ParamStr(1)+'" wird nicht unterstützt!',mtInformation

Announcement

Quickreport 2 ArchiveFiles in QR3.5 laden

Quickreport 2 ArchiveFiles in QR3.5 laden

Comment

Comment