|
#1
|
|||
|
|||
TXT2JPEG
Хочу написать программу такого типа, http://www.1nokia.ru/load/67-1-0-1925. Последняя мне не подходит, тк экран плейера другого размера. Посоветуйте с чего начать
|
#2
|
||||
|
||||
Что-то я непонял самой идеи
Код HTML:
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#3
|
|||
|
|||
Может, имелось в виду просто сохранение изображения с текстом? Ну, типа такого...
Код:
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 на форме. Последний раз редактировалось Nyctos Kasignete, 28.05.2009 в 15:48. |
#4
|
|||
|
|||
Ну, наверное, да.
Только: 1. Нафиг использовать TImage, когда быстрее будет рендерить в памяти на TBitmap 2. Надо с формы задавать размер страницы. 3. Надо "резать" текст по размеру страницы. В принципе, работы на пару часов максимум. Начинать с того, что посмотреть методы и свойства класса TCanvas. А именно: - св-во Font - св-во Brush - метод TextOut - метод FillRect. кажется, этого списка будет более чем достаточно. |
#5
|
||||
|
||||
lmikle, я бы еще добавил: TextHeight и TextWidth
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#6
|
|||
|
|||
А, да, хотел написать, но забыл
|