Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

ÓÃ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


Ïà¹ØÎÊ´ð£º

ÓÐûÓÐÈËÑо¿¹ýDelphi for PHP

ÈçÌâ¡£
¸Ð¾õÈçºÎ£¿½»Á÷Ï¡£

ûÓÐÑо¿¹ý£¬ºÇºÇ

ÓÐɶÑо¿Í·£¿

ÄǸö¶«Î÷£¬ÊǸö¼¦Àߣ¬£¬Ã»ÓÐʲôÒâ˼£¬·¢ÏÖ£¡£¡

ÓÃÀ´×öB/S¼Ü¹¹µÄMISϵͳµÄ»°Ó¦¸Ã¿ÉÒÔÌá¸ß½çÃæ¿ª·¢µÄЧÂʰɣ¿


ÒòΪ²»ÊìϤDelphi £ ......

PythonÖеÄUnicodeÔÚDelphiÈçºÎ»¹Ô­³ÉGb2312£¿

ÒÑÖªPython ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ

ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô­³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......

Delphi ʹÓÃshockwaveflash¿Ø¼þµÄÎÊÌâ

ÎÒдÁ˸öС³ÌÐò£¬ÉÏÃæÌí¼ÓÁËÒ»¸öshockwaveflash¿Ø¼þ£¬È»ºóÔÚmovieÀïдÈëswfÎļþµÄ·¾¶£¬È»ºóÖ´ÐÐûÓÐÎÊÌâ¡£
µ±ÎÒ°ÑÕâ¸ö³ÌÐò×ªÒÆµ½Áíһ̨µçÄÔÖ´ÐÐʱ£¬ shockwaveflash ¿Ø¼þÏÔʾ¿Õ°×¡£Ò²¾ÍÊÇûÓмÓÔØÄǸöswfÎļþ¡£ ......

ÍøÓѾÞÏ× Delphi 2010 ʹÓóõÌåÑé»ã±¨


EmbarcaderoÔÚ8ÔÂ26ÈÕÕýʽ·¢²¼ÁËRAD Studio 2010(¾ÍÊÇ´ó¼Ò³£ÓõÄDelphi 2010)£¬±¾ÈË»¨ÁË´ó¸ÅËĸöСʱÀ´°²×°ºÍÌåÑéDelphi2010£¬ÏÖ½«ÌåÑé½á¹ûÏò´ó¼Ò×ö¸ö¼òµ¥»ã±¨¡£

Ò».Óŵã:

1.IDE

1.1¾­µ ......

delphi動態調ÓÃdllµÄÀ§»ó

procedure RunFunction;  
  type  
  TFunc = function(A: Integer): Integer;stdcall;¡¡//ÕâÀï¸ù¾ÝDLLÀïÃæº¯ÊýµÄÉùÃ÷ÐÞ¸Ä  
  var  
  ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ