BYTE *ZJ_SignMessage(const char *SenderMail, // 发信人电子邮件地址
const int ReceiverNum, // 收信人个数 char *ReceiverMail[], // 收信人电子邮件地址(数组) BYTE *pMessage, // 需要进行签名的消息 DWORD cMessage, // 签名消息的长度 DWORD *pcbSignedMessage, // 返回的签名后的消息长度 BOOL SignFlag // 签名标志位,TRUE:单独签名 // FALSE:签名加密同时进行
);假设dll名为safemail.dll 我在线等待。马上给分呀!!!
const int ReceiverNum, // 收信人个数 char *ReceiverMail[], // 收信人电子邮件地址(数组) BYTE *pMessage, // 需要进行签名的消息 DWORD cMessage, // 签名消息的长度 DWORD *pcbSignedMessage, // 返回的签名后的消息长度 BOOL SignFlag // 签名标志位,TRUE:单独签名 // FALSE:签名加密同时进行
);假设dll名为safemail.dll 我在线等待。马上给分呀!!!
解决方案 »
- 为什么我安装了oracle9i在odbc驱动程序中找不到Oracle Provider for OLE DB驱动?
- delphi中的报表工具有哪些?
- listview的一个小问题--初学者请教。
- 在CHART中我在CANVAS画了一条竖线(可以左右移动) 我又添了一条曲线SERIES1 我如何才能取到两条线的焦点坐标呢??
- 如何制作DELPHI7.0安装程式
- Anycell Report(中国式报表)的最新版本V1.7出来啦,支持交叉表和分组报表,欢迎下载!
- 求一sql语句!!
- 关于Excel得问题?请大家进来看看好吗?
- 请教一下多行编辑框TMemo的使用?
- Pascal 中怎样实现文件读写和创建文件??谢谢
- 怎么以下代码就不执行destroy函数???
- SQL高手请进!!
// 发信人电子邮件地址
const ReceiverNum:integer ;
// 收信人个数 ReceiverMail:pchar ;
// 收信人电子邮件地址(数组)
pMessage:BYTE ;
// 需要进行签名的消息 cMessage:WORD ;
// 签名消息的长度
pcbSignedMessage: DWORD;
// 返回的签名后的消息长度
SignFlag: BOOLean ;
// 签名标志位,TRUE:BOOLean ;单独签名
// FALSE:签名加密同时进行
)
大概是这样
// 发信人电子邮件地址
const ReceiverNum:integer ;
// 收信人个数 ReceiverMail:pchar ;
// 收信人电子邮件地址(数组)
pMessage:BYTE ;
// 需要进行签名的消息 cMessage:WORD ;
// 签名消息的长度
pcbSignedMessage: DWORD;
// 返回的签名后的消息长度
SignFlag: BOOLean);大概是这样
var
fromaddress,pCh:pChar;
rm:array of char;
byteArray:array of byte;
mess:Byte;
messlen:DWORD;
rmesslen:DWORD;
mailnum,i:integer;
begin
messlen:=0;
rmesslen:=0;
pCh:=pChar('qdafdas');
SetLength(byteArray, StrLen(pCh));
for i := 0 to StrLen(pCh) do
begin
byteArray[i] := Byte((pch + i)^);
//s := s + Char(byteArray[i]);
end;
StrCopy(fromaddress,'[email protected]');
mailnum:=1;
SetLength(rm, StrLen('[email protected]'));
StrCopy(@rm,'[email protected]');
strCopy(@mess,@byteArray);showmessage(fromaddress);
ZJ_SignMessage(@fromaddress,mailnum,@rm,mess,messlen,rmesslen,true);
end;
// 需要进行签名的消息 cMessage:DWORD ;