// 以下敘述接續在完成 "全選" 資料之後...    // 我用下列這一行來代替您原先模擬送出按下 Ctrl-C 鍵的動作
SendMessage(AcroPDF1->Handle, WM_COPY, 0, 0);
TMemo *ed = new TMemo(AcroPDF1);
ed->Parent = this;
SendMessage(ed->Handle, WM_PASTE, 0, 0);
ed->Lines->SaveToFile("c:\\temp.txt");
delete ed;

引言: qubeley2004 您好： 我也沒有找到 AcroPDF 元件另存文字檔的功能，不過您可以試試透過剪貼板的方式來儲存資料，您原來的那一篇： 請問使用AcroPDF.dll這個原件是否有全選複製的函式? http://delphi.ktop.com.tw/topic.php?topic_id=71519 應該已經能夠做到 "全選" 的動作了，如果您確認該動作不會發生其它的例外狀況，那麼您可以接著再設法將全選的資料複製到剪貼板內，然後再將剪貼板內的資料複製到一個具備儲存功能的暫存物件去，這樣子應該就可以達到您要的動作了，這裡給您一個例子參考一下：

// 以下敘述接續在完成 "全選" 資料之後...    // 我用下列這一行來代替您原先模擬送出按下 Ctrl-C 鍵的動作
SendMessage(AcroPDF1->Handle, WM_COPY, 0, 0);
TMemo *ed = new TMemo(AcroPDF1);
ed->Parent = this;
SendMessage(ed->Handle, WM_PASTE, 0, 0);
ed->Lines->SaveToFile("c:\\temp.txt");
delete ed;

試試看吧。

是的...我已經試過了這樣的方法..不過問題在於... 對於有些pdf檔案,譬如頁數很多的時候.. 他就會顯示出錯誤...還是這個有方法可以解決呢?_? 不知道為什麼pdf6不會出現功能選項,而pdf7卻可以..

引言: qubeley2004 您好： 我也沒有找到 AcroPDF 元件另存文字檔的功能，不過您可以試試透過剪貼板的方式來儲存資料，您原來的那一篇： 請問使用AcroPDF.dll這個原件是否有全選複製的函式? http://delphi.ktop.com.tw/topic.php?topic_id=71519 應該已經能夠做到 "全選" 的動作了，如果您確認該動作不會發生其它的例外狀況，那麼您可以接著再設法將全選的資料複製到剪貼板內，然後再將剪貼板內的資料複製到一個具備儲存功能的暫存物件去，這樣子應該就可以達到您要的動作了，這裡給您一個例子參考一下：

// 以下敘述接續在完成 "全選" 資料之後...    // 我用下列這一行來代替您原先模擬送出按下 Ctrl-C 鍵的動作
SendMessage(AcroPDF1->Handle, WM_COPY, 0, 0);
TMemo *ed = new TMemo(AcroPDF1);
ed->Parent = this;
SendMessage(ed->Handle, WM_PASTE, 0, 0);
ed->Lines->SaveToFile("c:\\temp.txt");
delete ed;

試試看吧。

SendMessage(AcroPDF1->Handle, WM_COPY, 0, 0);

引言: qubeley2004 您好： 我使用的是 7.0 的 AcroPDF.dll (雖然有功能選項，卻一樣沒有看到您說的另存文字檔選項)，測試的 .pdf 檔案約為 5.6MB 共 462 頁，我原先的測試都 OK，剛才看到您的回應後，又再做過測試，這次很奇怪，編譯程式執行後，第一次的複製沒問題，儲存的結果僅有那個被載入 .pdf 的檔案名稱，我未退出程式，直接再做一次複製 儲存的動作，結果就可以了，之後我再重新編譯程式執行，都是一次就 OK 了，儲存後的文字檔約為 839KB，您參考一下。 唔...奇怪的是...我用您的程式碼...結果沒有複製到呢..... 我改用Memo測試後也是相同不會複製到Memo的內文,還是之前剪貼簿的東西

可是我什麼也沒有改變說... < class="code"> void __fastcall TForm1::Button1Click(TObject *Sender) { SendMessage(Memo1->Handle, WM_COPY, 0, 0); TMemo *ed = new TMemo(Memo1); ed->Parent = this; SendMessage(ed->Handle, WM_PASTE, 0, 0); ed->Lines->SaveToFile("c:\\temp.txt"); delete ed; } 這是我的程式碼..不過卻沒有複製到memo裡面的文字... 難道是見鬼了= =?

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    ::SetFocus(AcroPDF1->Handle);
    keybd_event(VK_CONTROL, 0, 0, 0); // 按下 Ctrl
    keybd_event(65, 0, 0, 0); // 按下 A
    Sleep(10);
    keybd_event(65, 0, KEYEVENTF_KEYUP, 0); // 放開 A
    keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0); // 放開 Ctrl
    Sleep(10);
/*
    keybd_event(VK_CONTROL, 0, 0, 0); // 按下 Ctrl
    keybd_event(67, 0, 0, 0); // 按下 C
    keybd_event(67, 0, KEYEVENTF_KEYUP, 0); // 放開 C
    keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0); // 放開 Ctrl
    Sleep(10);
*/
    SendMessage(AcroPDF1->Handle,WM_COPY,0,0);        TMemo *ed = new TMemo(AcroPDF1);
    ed->Parent = this;
    SendMessage(ed->Handle,WM_PASTE,0,0);
    ed->Lines->SaveToFile("c:\\tmp\\pdf.txt");
    delete ed;
}

::SetFocus(AcroPDF1->Handle);

SendMessage(AcroPDF1->Handle,WM_COPY,0,0);

keybd_event(VK_CONTROL, 0, 0, 0); // 按下 Ctrl
    keybd_event(67, 0, 0, 0); // 按下 C
    keybd_event(67, 0, KEYEVENTF_KEYUP, 0); // 放開 C
    keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0); // 放開 Ctrl
    Sleep(10);

您的 Code：
.... 這裡漏了一段 (您大概是剪貼時漏掉的，實際測試的程式碼應該不會漏這一段，不過這不是我要講的差異處，差異處在下方) ....    SendMessage(Memo1->Handle, WM_COPY, 0, 0);
TMemo *ed = new TMemo(Memo1);
ed->Parent = this;
SendMessage(ed->Handle, WM_PASTE, 0, 0);
ed->Lines->SaveToFile("c:\\temp.txt");
delete ed;    我的 Code：
::SetFocus(AcroPDF1->Handle);
keybd_event(VK_CONTROL, 0, 0, 0);
keybd_event(65, 0, 0, 0);
Sleep(10);
keybd_event(65, 0, KEYEVENTF_KEYUP, 0);
keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0);
Sleep(10);    SendMessage(AcroPDF1->Handle,WM_COPY,0,0);
TMemo *ed = new TMemo(AcroPDF1);
ed->Parent = this;
SendMessage(ed->Handle,WM_PASTE,0,0);
ed->Lines->SaveToFile("c:\\temp.txt");
delete ed;