delphi ´òÓ¡ÎÊÌâ - Delphi / VCL×é¼þ¿ª·¢¼°Ó¦ÓÃ
ÏÖÔÚÐèÒª´òÓ¡delphi´°ÌåÉÏËùÓеĶ«Î÷£¬ÎÒÏÈץͼÔÙ´òÓ¡£¬¿ÉÊÇ´òÓ¡²»³öÀ´£¬Çë´óÏÀÃÇ°ïæ¡£
Ö»ÊÇÎҵĴúÂ룺
procedure TForm1.FormCreate(Sender: TObject);
var
cvsFullScreenCanvas:TCanvas;
dc:HDC;
bmpFullScreen:TBitmap;
rectScreen:Trect;
begin
bmpFullScreen:=TBitmap.Create;
bmpFullScreen.Width:=screen.Width;
bmpFullScreen.Height:=screen.Height;
//ÉèÖÃBitMap¶ÔÏó
DC:=GetDC(0);
cvsFullScreenCanvas:=TCanvas.Create;
cvsFullScreenCanvas.Handle:=DC;
//ÉèÖÃCanvass¶ÔÏó
bmpFullScreen.Canvas.CopyRect(Rect(0,0,Screen.Width,Screen.Height),cvsFullScreenCanvas,Rect(0,0,Screen.Width,Screen.Height));
cvsFullScreenCanvas.Free;
ReleaseDC(0,DC);
if printdialog1.Execute then
begin
printer.BeginDoc;
printer.Canvas.Draw(0,0,bmpFucllScreen);
printer.EndDoc;
end;
bmpFullScreen.Free;
delphiÓÐ×Ô´øµÄ´òÓ¡demo,Äã¿ÉÒÔ¿´Ò»ÏÂ
Ö±½ÓSelf.Print
1¡¢´úÂëûÓÐÎÊÌ⣬ֻÊDz»Òª·ÅÔÚFormµÄOnCreateʼþÖУ¬±ÈÈçÒƶ¯µ¥¶ÀµÄÒ»¸öButton.OnClickÖÐ
2¡¢printer.Canvas.Draw(0,0,bmpFucllScreen);
ÕâÒ»¾äÖÐÓÐÒ»¸ö±ÊÎó£¬bmpFucllScreenӦΪbmpFullScreen
»¹ÊÇÃ
Ïà¹ØÎÊ´ð£º
³ÌÐòʹÓõÄÊÇOrcalÊý¾Ý¿â£¬Ï붨ÆÚ£¨Ã¿¼¾¶È£©¶ÔÊý¾Ý¿â½øÐб¸·Ý£¬Ã»É¶Í·Ð÷£¬ÇëÎÊÓ¦¸ÃÔõôŪ£¿
ÓÐʲôÌØÊâÒªÇóÂ𣬱ÈÈçҪǰ¶Ë½çÃ棿
Ò»°ãÓÃÊý¾Ý¿â×Ô´øµÄ¡°¼Æ»®ÈÎÎñ¡±ÅäÖÃһϾ͹»ÁË
ûÓÐʲôÌØÊâÒªÇó¡£ÀýÈ磬ֻҪµ ......
1.ÎÒ²»»áÓ¢Óï,ÏÂÔØÁ˸ödelphi2010,´ò¿ªÒÔºóÀïÃæÈ«²¿ÊÇÓ¢Óï,Á¬°ïÖúÎļþÒ²ÊÇÓ¢Óï,ÓÐûÓкº»¯°æµÄ?
2.ÏÂÃæÊÇ×°delphi2010µÄʱºò×°½øÀ´µÄ,Âé·³½âÊÍÕâЩÊÂʲô
Embarcadero Delphi and C++ Builder 2010 Database Pack ......
ÔÚÍøÉÏ¿´µ½ºÜ¶àÈËд³ÌÐò´úÂë,дµÄ´úÂëÿһÐж¼ÊÇҪô¾Í¿ÕÒ»¸ö¿Õ¸ñ,Ҫô¾Í¿ÕºÃ¼¸¸ö,Õâ¸öÓй涨Âð?Ôõô¿´?
ÒÔÏÂÊÇÎÒÔÚÍøÉÏÕÒµÄÒ»¶Î³ÌÐò´úÂë
===================================================================== ......
RXmlDoc := System.xml.XmlDocument.Create;
sxml := copy(sRsult, ir + 8, length(sRsult));
sxml := System.Text.Encoding.GetEncoding('gb2312').GetString(Convert.fromB ......