ÓÃdelphiµ÷ÓÃvcдµÄdll³ö´í£¿
ÏÂÃæÊÇVC£º
typedef struct plog
{
int log_id;//¼Ç¼±àºÅ
char userName[20];//ʹÓÃÕß
char ip[20];//ʹÓÃIP
char content[50];//ÈÕÖ¾ÄÚÈÝ
}plog;
//Ìí¼ÓʹÓüǼ
extern "C" __declspec(dllexport) void createLog(plog log);
delphi£º
TDBPlog = record
log_id:Integer;//¼Ç¼±àºÅ
userName:array[0..19] of Char;//ʹÓÃÕß
ip:array[0..19] of Char;//ʹÓÃIP
content:array[0..49] of Char;//ÈÕÖ¾ÄÚÈÝ
end;
PDBPlog = ^TDBPlog;
TDBCreateLog = procedure(log:TDBPlog);stdcall;
procedure TForm1.btn1Click(Sender: TObject);
var
FDllHandle:HMODULE;
FCreateLog:TDBCreateLog;
plog:TDBPlog;
begin
FDllHandle := LoadLibrary('proxyData.dll');
if FDllHandle = 0 then raise Exception.Create('Êý¾Ý¿â DLL ¼ÓÔØÊ§°Ü');
FCreateLog := GetProcAddress(FDllHandle,'createLog');
plog.userName := '11';
plog.ip := '192.168.1.199';
plog.content := 'test';
¡¡FCreateLog(plog); //Êý¾ÝÓвåÈëÊý¾Ý¿â
end;//µ¥»÷ʼþ½áÊøºóÌáʾ³ö´í
vcµÄdllÖк¯ÊýÊÇÕâÑùµÄ£º
extern "C" __declspec(dllexport) void createLog(plog log)
{
CString log_ip;
CString user_name;
CStrin
Ïà¹ØÎÊ´ð£º
ÈçÌâ¡£
¸Ð¾õÈçºÎ£¿½»Á÷Ï¡£
ûÓÐÑо¿¹ý£¬ºÇºÇ
ÓÐɶÑо¿Í·£¿
ÄǸö¶«Î÷£¬ÊǸö¼¦Àߣ¬£¬Ã»ÓÐʲôÒâ˼£¬·¢ÏÖ£¡£¡
ÓÃÀ´×öB/S¼Ü¹¹µÄMISϵͳµÄ»°Ó¦¸Ã¿ÉÒÔÌá¸ß½çÃæ¿ª·¢µÄЧÂʰɣ¿
ÒòΪ²»ÊìϤDelphi £ ......
ÒÑÖªPython ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ
ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......
ÎÒдÁ˸öС³ÌÐò£¬ÉÏÃæÌí¼ÓÁËÒ»¸öshockwaveflash¿Ø¼þ£¬È»ºóÔÚmovieÀïдÈëswfÎļþµÄ·¾¶£¬È»ºóÖ´ÐÐûÓÐÎÊÌâ¡£
µ±ÎÒ°ÑÕâ¸ö³ÌÐò×ªÒÆµ½Áíһ̨µçÄÔÖ´ÐÐʱ£¬ shockwaveflash ¿Ø¼þÏÔʾ¿Õ°×¡£Ò²¾ÍÊÇûÓмÓÔØÄǸöswfÎļþ¡£ ......
EmbarcaderoÔÚ8ÔÂ26ÈÕÕýʽ·¢²¼ÁËRAD Studio 2010(¾ÍÊÇ´ó¼Ò³£ÓõÄDelphi 2010)£¬±¾ÈË»¨ÁË´ó¸ÅËĸöСʱÀ´°²×°ºÍÌåÑéDelphi2010£¬ÏÖ½«ÌåÑé½á¹ûÏò´ó¼Ò×ö¸ö¼òµ¥»ã±¨¡£
Ò».Óŵã:
1.IDE
1.1¾µ ......
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall;¡¡//ÕâÀï¸ù¾ÝDLLÀïÃæº¯ÊýµÄÉùÃ÷ÐÞ¸Ä
var
......