简单过程:
var
g1,g2:tgraphic;begin
g1.LoadFromFile('c:\1.jpg'); //运行到这里出错。
g2.LoadFromFile('c:\1.jpg'); //这里出错。
Image1.Canvas.Pen.Mode:=pmXor;
Image1.Canvas.Draw(0,0,g1);
Image1.Canvas.Draw(10,10,g2);
end;
var
g1,g2:tgraphic;begin
g1.LoadFromFile('c:\1.jpg'); //运行到这里出错。
g2.LoadFromFile('c:\1.jpg'); //这里出错。
Image1.Canvas.Pen.Mode:=pmXor;
Image1.Canvas.Draw(0,0,g1);
Image1.Canvas.Draw(10,10,g2);
end;
var
g1,g2:tgraphic;begin
g1 := TGraphic.Create ;
g2 := TGraphic.Create ;g1.LoadFromFile('c:\1.jpg'); //运行到这里出错。
g2.LoadFromFile('c:\1.jpg'); //这里出错。
Image1.Canvas.Pen.Mode:=pmXor;
Image1.Canvas.Draw(0,0,g1);
Image1.Canvas.Draw(10,10,g2);
end;
加上这两句后,运行到 g2.LoadFromFile('c:\1.jpg') 还是出错“Abstract Error”
>>g1,g2:tgraphic;
可能不行, 定義成兩個TJpeg試試
var
g1,g2:TBitmap;begin
g1 := TBitmap.Create ;
g2 := TBitmap.Create ;
g1.LoadFromFile('c:\1.jpg'); //运行到这里出错。
g2.LoadFromFile('c:\1.jpg'); //这里出错。
Image1.Canvas.Pen.Mode:=pmXor;
Image1.Canvas.Draw(0,0,g1);
Image1.Canvas.Draw(10,10,g2);
end;
end;
你还是用TPicture读入吧!!!
或者是用TBitmap读入一个文件,然后用TGraphic的Assign方法