data2pas 0.8.0 released

[yamer]

data2pas is a tool that converts text or binary data into pascal include files.

Changes:

• Improved: command line check
• Fixed: indent value is now limited in range [1..40]
• Fixed: width value is now limited in range [40..1024]

http://yann.merignac.free.fr/data2pas.html

[Thaddy]

Like data2inc? Which is included with FPC under tools.

[yamer]

Yes, the two tools are used to the same thing. However data2pas syntax is, in my opinion, much more readable.

An example of data2pas file that creates an include file (`data.inc') containing three constants:

Code: [Select]

FILE 'data.inc';
BEGIN
  Font8x8Data : array of byte = DATA('data/fnt8x8.png');
 
  Font8x16Data : array of byte = DATA('data/fnt8x16.png');

  VGAPalImgData : array of byte = DATA('data/vga_pal.pal');
END;


[VTwin]

Thanks yammer!

This works great, now I do not have to include a "Resources" folder with my distros. Yay! I looked at data2inc, but found it confusing. data2pas is easy.

For anyone interested, I did this for an about dialog png:

Code: Pascal  [Select][+][-]

1. file 'data.inc';
2. begin
3.   AboutPng : array of byte = Data('about.png');
4.   BeepWav  : array of byte = Data('Beep.wav');
5. end;

Code: Pascal  [Select][+][-]

1. procedure TForm1.FormCreate(Sender: TObject);
2. var
3.   s: TMemoryStream;
4. begin
5.   s := nil;
6.   fBmp := nil;
7.   try
8.     s := TMemoryStream.Create;
9.     s.SetSize(SizeOf(AboutPng));
10.     s.WriteBuffer(AboutPng, SizeOf(AboutPng));
11.     s.Seek(0, soFromBeginning);
12.     fBmp := TBGRABitmap.Create(s);
13.   finally
14.     s.Free;
15.   end;
16. end;
17.  
18. procedure TForm1.FormPaint(Sender: TObject);
19. begin
20.   if fBmp <> nil then
21.     fBmp.Draw(Canvas, 0, 0, false);
22. end;  
23.  

and this for a simple sound:

Code: Pascal  [Select][+][-]

1. procedure TForm1.Button1Click(Sender: TObject);
2. var
3.   p, t: string;
4.   fs: TFileStream;
5. begin
6.   t := GetTempDir(true);
7.   p := t + 'Beep.wav';
8.   try
9.     fs := TFileStream.Create(p, fmCreate);
10.     fs.WriteBuffer(BeepWav, SizeOf(BeepWav));
11.     PlaySound(p);
12.   finally
13.     fs.Free;
14.   end;
15. end;

There is probably a better way to do the sound, but I used a temporary file. No problem to compile for OS X.

Cheers,
VTwin