HI!各位先進 請問Delphi有元件或其他辦法可以將*.rtf檔轉成*.jpg檔嗎? 感謝~!

能用 TRichEdit 開啟此 .rtf 檔的話 參考 "How to copy contents of a Trichedit to a BMP" 這篇: http://groups.google.com/groups?hl=zh-TW&lr=&ie=UTF-8&th=9e1bebdae16cd3d8&rnum=3    -- 向 KTop 的弟兄們致敬! 

程式倒不大，短短幾十行而已，可惜我只會C++Builder 看那位大大能翻成Delphi，例子中是存於Image中：

  Graphics::TBitmap *newBitmap;
  newBitmap = new Graphics::TBitmap();
  HDC ScreenDC;
  TPoint REOrg;
  try  {
    Image1->Picture->Graphic=newBitmap;
    Image1->Picture->Graphic->Width=RichEdit1->ClientWidth;
    Image1->Picture->Graphic->Height=RichEdit1->ClientHeight;
    REOrg=RichEdit1->ClientToScreen(Point(0,0));
    ScreenDC=GetDC(0);
    try    {
      BitBlt(Image1->Picture->Bitmap->Canvas->Handle,0,0,RichEdit1->ClientWidth,RichEdit1->ClientHeight,ScreenDC,REOrg.x, REOrg.y, SRCCOPY);
    }
    __finally    {
      ReleaseDC(0, ScreenDC);
    }
  }
  __finally  {
    newBitmap->Free();
  }    

Andy Chang

------
Andy Chang

小弟我太肉腳了剛學Delphi，又是自學的對於下面的程式中的 procedure RTFtoBitmap(cFileName: string; AParentWin: HWND; nWidth, nHeight:integer; var bm: TBitmap); 這個procedure RTFtoBitmap不知道怎麼使用，例如裡面的AParentWin: HWND跟 var bm: TBitmap要傳入甚麼值! 請高手能指導我一下，謝謝!! ---------------------------------------------------------------- uses ... , RichEdit; function PixelsToTwipsH(hDC: THandle; nPixels: integer): integer; var nPixelsPerInch: double; begin nPixelsPerInch := GetDeviceCaps(hDC, LOGPIXELSX); Result := Round((1440 / nPixelsPerInch) * nPixels); end; function PixelsToTwipsV(hDC: THandle; nPixels: integer): integer; var nPixelsPerInch: double; begin nPixelsPerInch := GetDeviceCaps(hDC, LOGPIXELSY); Result := Round((1440 / nPixelsPerInch) * nPixels); end; // load a rich text file into a bitmap of desired width and height procedure RTFtoBitmap(cFileName: string; AParentWin: HWND; nWidth, nHeight: integer; var bm: TBitmap); var fmtRange: TFormatRange; red: TRichEdit; begin if not Assigned(bm) then bm := TBitmap.Create; try bm.Width := nWidth; bm.Height := nHeight; red := TRichEdit.CreateParented(AParentWin); // gotta have a parent try red.Lines.LoadFromFile(cFileName); fmtRange.hdc := bm.Canvas.Handle; fmtRange.hdcTarget := bm.Canvas.Handle; fmtRange.rc := Rect(0, 0, PixelsToTwipsH(fmtRange.hdc, nWidth), PixelsToTwipsV(fmtRange.hdc, nHeight)); fmtRange.rcPage := fmtRange.rc; fmtRange.chrg.cpMin := 0; fmtRange.chrg.cpMax := -1; with red do begin Perform(EM_FORMATRANGE, Integer(true), Integer(@fmtRange)); Perform(EM_FORMATRANGE, Integer(true), 0); end; finally red.Free; end; except end; // error handling here end;

試試用法如下:

procedure TForm1.Button1Click(Sender: TObject);
var
  bmp: TBitmap;
begin
  RtfToBitmap('c:\xx.bmp', Form1.Handle, 800, 600, bmp);
end;

-- 歡迎光臨 KTop 研究苑!

感謝指導! 使用 RtfToBitmap('C:\aa.RTF', Form1.Handle, 800, 600, Bitmap); 之後已經成功! 不過成果不如預期，因為原RTF檔編輯格式已經跑掉。 看起來只有文字一行一行的。 不過還是很感謝，因為也學了不少 謝謝~

hagar 您好 看到這則討論讓我獲益不少。有幾個問題想請教各位前輩 ~ 1. 我利用http://groups.google.com/groups?hl=zh-TW&lr=&ie=UTF-8&th=9e1bebdae16cd3d8&rnum=3所提及的方式發現當RTF中為不只一頁的內容時，但總是顯示第一頁，不知多頁時該如何處理？ 2. 若RTF文件中若有圖形則無法顯示出來，其餘正常，不知該如何處理？ 謝謝。

------
我也在努力學習中，若有錯謬請見諒。