如何存Image上的圖片?

發文回覆瀏覽次數：937

推到 Plurk!

推到 Facebook!

尚未結案

4880h009
一般會員

發表：32
回覆：43
積分：15
註冊：2003-11-26

發送簡訊給我

#1 引用回覆回覆

發表時間：2003-12-31 09:08:26

IP:140.124.xxx.xxx 未訂閱

我在一個Image上另外放二個Image來畫圖~~哪要如何才可將這些圖片存成一個圖片? ps : if (SavePictureDialog1->Execute()) { Image5->Picture->SaveToFile(SavePictureDialog1->FileName ".bmp") ; } 我用這樣存，只會將Image5上的圖存起來，放在Image5上面的Image的圖不會存進去，我要如何做呢? 發表人 - taishyang 於 2003/12/31 10:40:51

taishyang
站務副站長

發表：377
回覆：5490
積分：4563
註冊：2002-10-08

發送簡訊給我

#2 引用回覆回覆

發表時間：2003-12-31 10:39:33

IP:140.135.xxx.xxx 未訂閱

4880h009您好: 您可以參考下面連結 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=34780 【發表】圖形合併 (位移分割互補版) BY RaynorPao版主當中的這一段程式

   HDC dc;
   dc=GetDC(GetDesktopWindow());
   TCanvas *canvas=new TCanvas;
   canvas->Handle=dc;
   Graphics::TBitmap *bmp=new Graphics::TBitmap;
   bmp->Width=Image1->Width;
   bmp->Height=Image1->Height;
   bmp->Canvas->CopyMode=cmSrcCopy;
   SetStretchBltMode(bmp->Canvas->Handle, STRETCH_HALFTONE);
   TPoint ptLT, ptRB;
   ptLT.x=Image1->Left;
   ptLT.y=Image1->Top;
   ptRB.x=Image1->Left Image1->Width;
   ptRB.y=Image1->Top Image1->Height;
   ptLT=Form1->ClientToScreen(ptLT);
   ptRB=Form1->ClientToScreen(ptRB);
   bmp->Canvas->CopyRect(Rect(0, 0, bmp->Width, bmp->Height),
      canvas, Rect(ptLT.x, ptLT.y, ptRB.x, ptRB.y));
   bmp->SaveToFile("merge.bmp");
   delete bmp;
   delete canvas;
   ReleaseDC(NULL, dc);

可達到您的目的 P.S:下次請將您的問題放在合適的地方,這問題應屬於VCL區順心 <>～我也是在學習的階段,回答的不好請您多多見諒與指教～

系統時間：2024-07-05 3:11:25

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！