FastReport6.3 is Chinese website to download, want to see the inside of the demo, for example, has been an error when running; Is the same mistake; O master, fastreport didn't installed?

CodePudding user response:

1, you use a trial version, there may be restrictions,
Last line 2, the message that FRXML. There is something wrong with the pas
{$3, the code window ifdef} learned, you the DEMO is DELPHI 4.0 above, and you use now is DLPHI XE 10.3 also DELPHI 10.2 Tokyo 32 VER320 new, which can be concluded that all changed because of the character string type, DELPHI xe10, support AnsiChar and WideChar two basic types of character types. Try to change the string in your DEMO to AnsiChar

CodePudding user response:

The obvious error, one by one check, and many are updated the old function, such as the first should be the SysUtils unit using CharInSet function inside, you can use the key in [],

CodePudding user response:

Correct the Error of two line function according to his hints of change, or Google it

CodePudding user response:

FRMXL pas unit reference error, should be can't find the file, their increased lib can search path, then you should be able to run the demo example,

CodePudding user response:

 
Procedure TfrxXMLDocument. CreateTempFile; 
Var 
{$IFDEF FPC} 
Path: the String; 
{$ELSE} 
{$IFDEF Delphi12} 
Path: WideString; 
FileName: WideString; 
{$ELSE} 
Path: String [64]; 
FileName: String [255]; 
{$ENDIF} 
{$ENDIF} 
The begin 
If FTempFileCreated then Exit. 
{$IFDEF FPC} 
Path:=FTempDir; 
If (Path=' ') or the not DirectoryExistsUTF8 (Path) then 
Path:=GetTempDir; 
FTempFile:=GetTempFilename (Path, "); 
FileCreate (FTempFile); 
{$ELSE} 
{$IFDEF Delphi12} 
SetLength (FileName, 255); 
Path:=FTempDir; 
If (Path=' ') or the not DirectoryExists (String (Path)) then 
The begin 
SetLength (Path, 255); 
SetLength (Path, GetTempPath (255, @ Path [1])); 
End 
The else 
{$ELSE} 
Path:=FTempDir; 
If (Path=' ') or the not DirectoryExists (Path) then 
The Path [0] :=CRH (GetTempPath (64, @ Path [1])) else 
{$ENDIF} 
Path: the Path=+ # 0; 
If (Path & lt;> ") and (the Path [Length (Path)] <> '\') then 
Path: the Path +='\'; 

GetTempFileName (@ Path [1], PChar (" fr "), and 0, @ FileName [1]). 
{$IFDEF Delphi12} 
FTempFile:=StrPas (PWideChar (@ FileName [1])); 
{$ELSE} 
FTempFile:=StrPas (@ FileName [1]); 
{$ENDIF} 
{$ENDIF} 
FTempStream:=TFileStream. Create (FTempFile fmOpenReadWrite); 
FTempFileCreated:=True; 
end; 

This is 6.5.5 version of the code, it is recommended that you change a version to use, don't use your this 6.3,