TclFileStream

TclFileStream enables applications to read from and write to a file on disk.

Use TclFileStream to access the information in disk files. TclFileStream will open a named file and provide methods to read from or write to it.

Pros:

• Large Data Processing: It can handle very large data sizes, limited only by disk space.
• Persistence: Data is persistent and remains available even after the application is closed.

Cons:

• Slower Access: File I/O operations are generally slower than memory operations due to disk access delays.
• Disk I/O: Involves reading from and writing to disk, which can be slower and resource-intensive.

Feature	Use of	Definition
TclFileStream	FileStream: TCLFileStream;	A variable belonging to the TclFileStream class is created.
TCLFileStream.Create(filePath, fmCreate);	FileStream = TCLFileStream.Create(clPathCombine('ok.png',Clomosy.AppFilesPath), fmCreate); //fmOpenRead - fmOpenWrite - fmOpenReadWrite - fmExclusive - fmShareExclusive - fmShareDenyWrite - fmShareDenyNone - fmCreate - fmClosed - fmInput - fmOutput - fmInOut	When creating a new TclFileStream object on the form, it takes two parameters. The first parameter specifies the file path, and the second parameter indicates how the file will be opened. In the example, it creates the specified file and opens it in writing mode (fmCreate).
AsBase64	noteMemo.Lines.Text = FileStream.AsBase64; //noteMemo //TclMemo	Returns base64 string data.
Free	FileStream.Free;	It releases the memory occupied and destroys the object.

Example

This example creates a form and adds an image, a text area, and a button onto it. A procedure named FileStreamExample first saves the image to a file (in fmCreate mode), then loads the same image from the file (in fmOpenRead mode), and finally places the Base64 code of the image into a text area.

 var
   Form1:TCLForm;
   SourceImg : TclImage;
   noteMemo : TclMemo;
   btn1 : TclButton;
 
 void FileStreamExample;
 var
   FileStream: TCLFileStream;
 {
 
   // Save Img To File
   FileStream = TCLFileStream.Create(clPathCombine('ok.png',Clomosy.AppFilesPath), fmCreate);
   try
     SourceImg.Bitmap.SaveToStream(FileStream);
   finally
     FileStream.Free;
   }
   
   // Load Img From File
   
   FileStream = TCLFileStream.Create(clPathCombine('ok.png',Clomosy.AppFilesPath), fmOpenRead);
   try
     SourceImg.Bitmap.LoadFromStream(FileStream);
     noteMemo.Lines.Text = FileStream.AsBase64;
   finally
     FileStream.Free;
   }
 
 }
 
 {
   Form1 = TCLForm.Create(Self);
   
   Form1.AddAssetFromUrl('https://clomosy.com/educa/ok.png');
   noteMemo = Form1.AddNewMemo(Form1,'noteMemo','---');
   noteMemo.Align = alMostTop;
   noteMemo.Height = 200;
   noteMemo.StyledSettings = ssFamily;
   noteMemo.TextSettings.WordWrap = True;
   
   SourceImg = Form1.AddNewImage(Form1,'SourceImg');
   SourceImg.Align = alClient;
   Form1.setImage(SourceImg,'https://clomosy.com/educa/hint.png');
   
   btn1 = Form1.AddNewButton(Form1,'btn1','Upload');
   btn1.StyledSettings = ssFamily;
   btn1.TextSettings.Font.Size = 20;
   btn1.TextSettings.FontColor = clAlphaColor.clHexToColor('#8a067c');
   btn1.Align = alBottom;
   Form1.AddNewEvent(btn1,tbeOnClick,'FileStreamExample');
   
   Form1.Run;
 }

See Also

• Components
• TclMemoryStream
• StreamToBase64
• FileToStream
• FileToBase64
• Base64ToFile
• Base64ToStream