Форум: "Потрепаться";
Текущий архив: 2003.02.06;
Скачать: [xml.tar.bz2];

Вниз

Выдает   Найти похожие ветки 

← →
Chainik   (2003-01-18 17:36) [0]

Люди добрые помогите, не могу понять в чем ошибка. Написал прогу, которая платежки распечатывает. У клиента под Win98 после нескольких посыланий на печать (на Lexmark Z32) при очередной печати начинает выдавать "параметр задан неверно". После выхода из проги и очередного запуска ее происходит тоже самое. А если перегрузить комп, то можно будет распечатать, но опять же несколько раз и все. Вот код:

Bmp := TBitmap.Create;
Jpg := TJpegImage.Create;
If PrintDialog1.Execute=True Then
Begin
try
Jpg.LoadFromFile(Copy(ParamStr(0),1,Length(ParamStr(0))-17)+"PlatPech.jpg");
Bmp.Assign(jpg);
Printer.Canvas.Font.Color:=clblack;
Printer.BeginDoc;
Printer.Canvas.StretchDraw(Rect(-60,-105,4847,6882),Bmp);
Printer.Canvas.Font.Size:=14;
Printer.Canvas.TextOut(3600,665,Edit1.Text);
Printer.Canvas.Font.Size:=12;
Printer.Canvas.TextOut(685,1000,Edit2.Text);
Printer.Canvas.TextOut(4272,995,Edit3.Text);
Bmp.LoadFromFile(Copy(ParamStr(0),1,Length(ParamStr(0))-17)+"Check.bmp");
Printer.Canvas.StretchDraw(Rect(3380,1760,3480,1860),Bmp);
Printer.EndDoc;
finally
Bmp.Free;
Jpg.Free;
Bmp:=nil;
Jpg:=nil;
end;
end;


---

← →
MaximKAiKO   (2003-01-18 17:54) [1]

У тебя какая-то фишка спамятью

---

← →
Leohnmf   (2003-01-18 18:14) [2]

Однозначно память что-то забивает

---

← →
Song   (2003-01-18 18:17) [3]

Слишком большие изображения+нехватка GDI возможно+много программ в фоне+возможно комп глючит.

---

← →
Leohnmf   (2003-01-18 18:21) [4]

А как можно этого избежать

---

← →
Pat   (2003-01-18 23:53) [5]

>А как можно этого избежать
Создавать все формы вручную, плюс не забывать их уничтожать...

---

← →
Chainik   (2003-01-20 11:59) [6]

>to Pat ©

Что ты имеешь ввиду под "создавать форму вручную", как это должно отразится на TBitMap.

И вообще я неи понимаю в чем ошибка, ведь в делфийном примере ясно написано:
procedure TForm1.Button1Click(Sender: TObject);

var
BitMap1 : TBitMap;
begin
BitMap1 := TBitMap.Create;
try
BitMap1.LoadFromResourceName(HInstance,"THEBITMAP");
Canvas.Draw(12,12,BitMap1);
finally
BitMap1.Free;
end;
end;

Собственно я все так и делаю, почему происходит какое-то забивание (я так думаю что какой-то там памяти)

---

Страницы: 1 вся ветка

Форум: "Потрепаться";
Текущий архив: 2003.02.06;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.027 c