[xDeNx]

Хочу написать программу такого типа, http://www.1nokia.ru/load/67-1-0-1925. Последняя мне не подходит, тк экран плейера другого размера. Посоветуйте с чего начать

[Страдалецъ]

Что-то я непонял самой идеи

Программа для конвертирования текстовых файлов в изображения jpeg. Пригодится тем, у кого плейер не поддерживает txt-файлы. Программа на русском языке.

Как тескт соотносится с картинкой и причем здесь плейер?

[Nyctos Kasignete]

Может, имелось в виду просто сохранение изображения с текстом? Ну, типа такого...

Код:

uses ..., jpeg;

......

procedure TForm1.Button1Click(Sender: TObject);
var
  txtFile: TextFile;
  Str: string;
  i: Integer;
  Img: TJPEGImage;
begin
  AssignFile(txtFile, 'D:\TextFile.txt');
  Img := TJPEGImage.Create;
  try
    Reset(txtFile);
    with Image1.Canvas do
    begin
      MoveTo(10, 10);
      while not Eof(txtFile) do
      begin
        Readln(txtFile, Str);
        i := 1;
        while i < Length(Str) do
        begin
          TextOut(PenPos.X, PenPos.Y, Str[i]);
          Inc(i);
          if PenPos.X > Image1.Width - 10 then MoveTo(10, PenPos.Y + 20);
        end;
      end;
    end;
    Img.Assign(Image1.Picture.Bitmap);
    Img.SaveToFile('D:\Text2JPEG.jpg');
  finally
    CloseFile(txtFile);
    Img.Free;
  end;
end;

P.S. Соответственно, размер картинки можно подгонять, изменяя размер компонента TImage на форме.

[lmikle]

Ну, наверное, да.
Только:
1. Нафиг использовать TImage, когда быстрее будет рендерить в памяти на TBitmap
2. Надо с формы задавать размер страницы.
3. Надо "резать" текст по размеру страницы.

В принципе, работы на пару часов максимум.
Начинать с того, что посмотреть методы и свойства класса TCanvas. А именно:
- св-во Font
- св-во Brush
- метод TextOut
- метод FillRect.
кажется, этого списка будет более чем достаточно.

[Aristarh Dark]

lmikle, я бы еще добавил: TextHeight и TextWidth

[lmikle]

А, да, хотел написать, но забыл