delphi - 使用 TWebBrowser 获取发布到网站后返回的 PDF

Question

我正在使用Delphi 2007。我可以使用WebBrowser.Navigate成功地将数据发布到网站，但是之后，当该网站返回PDF时，当它出现在浏览器的屏幕上时，我不知道如何获取以编程方式生成 PDF。我可以使用 Document.Body.InnerHTML 查看一些文本和 HTML，但不能查看 PDF。有人可以演示如何获取 POST 之后出现的 PDF 吗？

谢谢!

Answer 1

为了在网络浏览器中从 PDF 中获取文本，我找到了一个使用名为 PushKeys 的开源单元的解决方案。将按键发送到网络浏览器以选择所有文本 (Control+A)，将其复制到剪贴板 (Control+ C)，然后使用 PasteFromClipBoard 将其粘贴到 TMemo 或其他控件。在 D2007 中测试。

WebBrowser.SetFocus;  // set the focus to the TWebBrowser control
Sleep(1000);  // 1 second delay to be sure webbrowser actually has focus
Application.ProcessMessages;
PushKeys('^a'); //send ctrl-a to select all text
Application.ProcessMessages;
WebBrowser.SetFocus;
PushKeys('^c'); //send ctrl-c to copy the text to clipboard
Sleep(1000);  // 1 second delay to make sure clipboard finishes processing
Application.ProcessMessages;
Memo1.PasteFromClipBoard; // Paste the clipboard to a memo field. 
                          // You could also use the clipbrd unit to handle the data.
//for Multi-page PDF's, you can send a PageDn key to get to the next page:
PushFnKey('PAGEDOWN');