SaveFile(FileName : String; Data : String/Blob)
Сохранить строку или блоб в файл

Функция SaveFile создает файл с именем FileName и записывает в него значение аргумента Data. Если такой файл уже существовал, то его содержимое будет заменено на Data.

Пример сохранения строки:

Procedure OnCreate;
Begin
  SaveFile('test.txt', 'Привет Мир!');
End;

Пример сохранения изображения (блоба):

Procedure OnCreate;
Var
  Img : ImageField;
  i : integer;
Begin
  Img.Resize(320, 240);

  Img.FillRect(0, 0, Img.Width-1, Img.Height-1, 0xFFFFFF);

  Img.SetFont('Arial', 20, False, False, False);
  For i:=0 To 100 Do
    Img.Text(Random(32)*10, Random(24)*10, Random(0xFFFFFF), '*');

  SaveFile('test.png', Img);
End;

Результат работы:

© RTIT