BCB6中Indy9傳送郵件的例子

2021-03-31 21:26:55 字數 1942 閱讀 5365

有兩個控制項:tidmessage:idmsgsend, tid**tp:**tp

/傳送郵件

//注:傳送的**tp屬性通過**tp_setup函式設定了

//引數:in:cto,收件人

//          ccc  抄送

//          cbcc 暗抄

//          csubject 主題

//          cbody  內容

//          cattachlist 傳送的附件(以n分割)

//      out: msg 返回錯誤資訊

//返回值 0:  成功傳送

//       -1:失敗,參見msg資訊

//       -2: 沒有先設定**tp傳送屬性

int __fastcall tm::sendmail(const char * cto, const char * ccc, const char * cbcc,

const char* csubject, const char * cbody, const char* cattachlist,

char * cmsg)

idmsgsend->receiptrecipient->text = idmsgsend->from->text;

}else

idmsgsend->receiptrecipient->text = "";

}idmsgsend->recipients->emailaddresses = cto; //

idmsgsend->subject = csubject; //

idmsgsend->cclist->emailaddresses = ccc;//

idmsgsend->bcclist->emailaddresses = cbcc; //

idmsgsend->priority = tidmessagepriority(priority); //

idmsgsend->body->text = string(cbody);

if(strlen(cattachlist))

delete sl;

}if(!**tp->connected())

catch(exception &e)

}if(**tp->connected())

catch(exception &e)

}else

return iret;

}//設定傳送的**tp屬性

//          iport,  **tp埠

//          clocalmail 發件人的郵箱

//          iauth 是否認證 0,不認證,1認證

//          cusername 認證使用者名稱

//          cpassword  認證密碼

//      out: 無

//返回值 0:  成功設定

//       -1:失敗,缺少屬性

int __fastcall tm::**tp_setup(const char * chost, const int iport, const char *clocalmail,

const int iauth, const char * cusername, const char *cpassword)

case  0:

**tp->authenticationtype = atnone;

break;

case 1:

**tp->authenticationtype = atlogin; //

break;

};**tp->username = cusername;

**tp->password = cpassword;

setupok = true;

return iret;

}

BCB6中的 Pragma說明(二)

10 pragma hdrstop pragma hdrstop hdrstop pragma用於終止若干個標頭檔案的預編譯,可有效減少預編譯標頭檔案占用的磁碟空間。凡在原始檔中 pragma hdrstop指令之前被引用的標頭檔案都將被預編譯成預編譯標頭檔案。假如乙個標頭檔案同時被多個原始檔引用,...

Delphi7 0自帶Indy 9基礎介紹

indy是阻塞式 blocking 的 當你使用winsock開發網路應用程式時,從socket中讀取資料或者向socket寫入資料都是非同步發生的,這樣就不會阻斷程式中其它 的執行。在收到資料時,winsock會向應用程式傳送相應的訊息。這種訪問方式被稱作非阻塞式連線,它要求你對事件作出響應,設定...

《轉》記錄一些BCB6的使用心得

源 自從2000年開始接觸bcb,使用bcb作程式設計入門學習,一路走來,遇到了不少不大不小的問題。一晃9年過去了,bcb不再陌生,當初為問題困擾時那種手足無措的記憶也漸漸淡了。每念及此,甚有把一些心得寫作文字的緊迫感。鑑於本人技術能力和文字水平之限,一直未能下決心,今天鼓起勇氣做這事,好歹不論,只...