Текущий архив: 2003.02.06;
Скачать: CL | DM;
Вниз
Выдает Найти похожие ветки
← →
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;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.025 c
