全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1234
推到 Plurk!
推到 Facebook!

idpop3邮件正文?

缺席
sl@cableplus.com.cn
高階會員


發表:168
回覆:359
積分:130
註冊:2004-03-26

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-05-26 16:35:37 IP:218.80.xxx.xxx 未訂閱
我在数据库中定义一个image类型的字段content,我在收邮件后准备把邮件正文内容放入其中,AdoInsertMail.Parameters.ParamByName('Content').Value := IdMessage1.Body.Text; 但是有时候别人发过来的是网页,从而在DBMEMO中显示很多HTML代码,想请教应该怎么解决这个问题?
sl@cableplus.com.cn
高階會員


發表:168
回覆:359
積分:130
註冊:2004-03-26

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-05-27 17:24:52 IP:218.80.xxx.xxx 未訂閱
谢谢大家赶快给我帮助
hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-05-27 17:34:04 IP:202.39.xxx.xxx 未訂閱
http://delphi.ktop.com.tw/topic.php?TOPIC_ID=45735
sl@cableplus.com.cn
高階會員


發表:168
回覆:359
積分:130
註冊:2004-03-26

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-05-27 17:49:28 IP:218.80.xxx.xxx 未訂閱
请问IHTMLDocument2是什么,说为定义?谢谢
hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#5 引用回覆 回覆 發表時間:2004-05-27 18:00:53 IP:202.39.xxx.xxx 未訂閱
有興趣的話, 請研究: http://msdn.microsoft.com/library/default.asp?url=/workshop/browser/mshtml/reference/ifaces/document2/document2.asp
sl@cableplus.com.cn
高階會員


發表:168
回覆:359
積分:130
註冊:2004-03-26

發送簡訊給我
#6 引用回覆 回覆 發表時間:2004-05-27 18:06:03 IP:218.80.xxx.xxx 未訂閱
IHTMLDocument2 应该怎么定义?
hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#7 引用回覆 回覆 發表時間:2004-05-27 18:11:32 IP:202.39.xxx.xxx 未訂閱
uses MSHtml; 如果沒有 MSHtml 這個單元的話 先 Project->Import Type Library 然後選 Microsoft HTML Object Library(Version 4.0) 再按 Create Unit 這個按鈕即可. 發表人 - hagar 於 2004/05/27 18:13:24
sl@cableplus.com.cn
高階會員


發表:168
回覆:359
積分:130
註冊:2004-03-26

發送簡訊給我
#8 引用回覆 回覆 發表時間:2004-05-27 18:18:03 IP:218.80.xxx.xxx 未訂閱
谢谢大大,我请教一个思路,我已经把邮件正文内容直接保存进了content字段,然后应该怎样和WebBrowser1结合起来?
hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#9 引用回覆 回覆 發表時間:2004-05-27 18:24:30 IP:202.39.xxx.xxx 未訂閱
要用的時候, 先把 Content 欄位存成一個暫存檔 假設存在 c:\temp\a.htm 然後用 WebBrowser1.Navigate('C:\temp\a.htm') 的方式來載入 用完了, 再把暫存檔刪除
sl@cableplus.com.cn
高階會員


發表:168
回覆:359
積分:130
註冊:2004-03-26

發送簡訊給我
#10 引用回覆 回覆 發表時間:2004-05-28 09:18:25 IP:218.80.xxx.xxx 未訂閱
请问大大成功后应该用什么命令删除这个临时的文件,谢谢
hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#11 引用回覆 回覆 發表時間:2004-05-28 09:25:24 IP:202.39.xxx.xxx 未訂閱
BOOL DeleteFile(     LPCTSTR lpFileName         // pointer to name of file to delete      ); 例:
begin
  if DeleteFile('c:\xx.htm') then
    ShowMessage('delete ok')
  else
    ShowMessage(SysErrorMessage(GetLastError));
end;
sl@cableplus.com.cn
高階會員


發表:168
回覆:359
積分:130
註冊:2004-03-26

發送簡訊給我
#12 引用回覆 回覆 發表時間:2004-05-28 09:46:07 IP:218.80.xxx.xxx 未訂閱
现在发现新问题了,我发信内容为“你好”通过网页方式打开后却变成了乱码,请问是什么原因,如下图: 小人上面本来应该是“你好”的,现在却变成什么乱码了,是什么原因?
hagar
版主


發表:143
回覆:4056
積分:4445
註冊:2002-04-14

發送簡訊給我
#13 引用回覆 回覆 發表時間:2004-05-28 10:00:00 IP:202.39.xxx.xxx 未訂閱
在 WebBrowser 元件上按右鍵, 選編碼 -> 簡體中文試試.
sl@cableplus.com.cn
高階會員


發表:168
回覆:359
積分:130
註冊:2004-03-26

發送簡訊給我
#14 引用回覆 回覆 發表時間:2004-05-28 10:07:59 IP:218.80.xxx.xxx 未訂閱
大大,我的代码如下: TBlobField(QryMaster.FieldByName('content')).savetofile('C:\WINNT\Temp\a.htm'); WebBrowser1.Navigate('C:\WINNT\Temp\a.htm'); 我把文件内容保存进数据库是2进制,数据库里该字段内容是”0x “,所以直接用QryMaster.FieldByName('content')).savetofile出来的也就是2进制了,请问应该怎么解决?
sl@cableplus.com.cn
高階會員


發表:168
回覆:359
積分:130
註冊:2004-03-26

發送簡訊給我
#15 引用回覆 回覆 發表時間:2004-05-28 10:23:56 IP:218.80.xxx.xxx 未訂閱
现在出来的网页都是如图的乱码,用右键选简体和繁体都无用?请问什么问题?谢谢
sl@cableplus.com.cn
高階會員


發表:168
回覆:359
積分:130
註冊:2004-03-26

發送簡訊給我
#16 引用回覆 回覆 發表時間:2004-05-28 12:13:47 IP:218.80.xxx.xxx 未訂閱
大大,正文内容保存进数据库字段后都有OX打头的2个字串,是不是加上这2个字串所以那网页才会出现乱码现象?如果是的话,应该怎么去除前2个字符?
系統時間:2024-05-17 15:50:41
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!