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

Âé·³¸ßÊÖ¸øÐ´¸öVC¸ßÓÃDELPHI DLLµÄ³ÌÐò

·Ö²»¹»ÔÙ¼Ó£¬¼±Çó
http://topic.csdn.net/u/20091214/22/37554f7c-831f-486b-ab58-6b50532c47ab.html
Ô­ÌûÔÚÕ⣬¶¼ËµÒ»Â¥µÄ·½·¨ÊÇÕýÈ·µÄ£¬µ«ÊÇÎÒÕâ°´Â¥Ö÷·½·¨³ö´í

DELPHIµÄ´úÂëÈçÏÂ
Delphi(Pascal) code:

library HealthDocDll;

uses
SysUtils,
Classes,
Forms,
Dialogs,
Windows,
HealthDoc in 'HealthDoc.pas' {frmHealthDoc},
pub in 'pub.pas';

{$R *.res}


procedure ShowForm(DoctorName,UserName:string);
begin
sDoctorName:=DoctorName;
sUserName:=UserName;
if not Assigned(frmHealthDoc) then
TfrmHealthDoc.Create(nil);
frmHealthDoc.Show;
end;

exports
ShowForm;

begin

end.


Ö»ÓÐÒ»¸ö´°¿Ú£¬SHOW³öÀ´¾ÍÐÐ
VCµÄµ÷ÓôúÂëÈçÏÂ
C/C++ code:

HINSTANCE hDll;
hDll=LoadLibrary( _T("HealthDocDLL.DLL") );
typedef int(*func)(const char*,const char*);

func SmartWord= (func)GetProcAddress( hDll , "ShowForm" );
SmartWord( "aaaaaa" , "b" );


´íÎóÈçÏÂ
"0x7c9313c0"Ö¸ÁîÒýÓÃ"0x004d0055"ÄÚ·á¡£¸ÃÄÚ´æ²»ÄÜΪ"written"
Ó¦¸ÃÊǵØÖ·Ô½½çÀàµÄ´íÎó°É£¬ÇëÎÊÓ¦¸ÃÈçºÎÐ޸ģ¿
procedure ShowForm(DoctorName,UserName:string);
´Ë´¦¸ÄΪ
procedure ShowForm(DoctorName,UserName:pchar);
µ÷Ó


Ïà¹ØÎÊ´ð£º

VC Delphi ÄÚ´æËÙ¶È±È½Ï - VC/MFC / ·Ç¼¼ÊõÀà

VC ¿ØÖÆÌ¨³ÌÐò:
#include <iostream>
using namespace std;
int main()
{
const int def_buffer = 1024 * 4;
DWORD t;
BYTE b[def_buffer];
memset(b, 0, sizeof(b));
PBYTE p;
t = GetTickC ......

Çë½ÌÏ£¬ÓÃDELPHI×öSOHUµÄ - Delphi / ·Ç¼¼ÊõÇø

Ò»°ã¶¼ÊÇÔõô½Ó»îµÄ£¿
ÊÕÈëÔõôÑù
sohu£¿soho£¿

sohu ¿ÉÄÜÊÇsmall office house unit
С°ì¹«ÊÒ£¬°Ñ¼Ò±ä³Éµ¥Î»¡£

È¥Íþ¿ÍÍø°¡,ºÜ¶à¸öÄØ,»¹ÓÐÍâ°üµÄÍøÕ¾

ѧϰѧϰ¡£

ÏÖÔÚDelphi×ö¶«Î÷²»ÐÐÁË,´¦ÓÚÌÔÌ­×´ ......

¸¶·ÑÇódelphiÆ´Òô±à³Ì - Delphi / ·Ç¼¼ÊõÇø

¾ßÌåÒªÇóÓ뱨³êQQ729851670
771234717

¡°Æ´Òô±à³Ì¡±ÊÇʲôÒâ˼

ÒýÓÃ
¡°Æ´Òô±à³Ì¡±ÊÇʲôÒâ˼
1.¸øÒ»¸ö×Ö¿ÉÒÔÏÔʾƴÒô£¬¶àÒô×ֵϰÄÜÏÔʾ¶ÔÓ¦µÄ¶à¸öÆ´Òô
2.¶Ô°üº¬¶àÒô×ֵĴÊÓïÖÇÄÜʶ±ð¸ø³öÆ´Òô¡£
3.¶ÔÒ»¶Î ......

VB/delphi ÐÞ¸ÄtextÎļþ - VB / »ù´¡Àà

¸÷λºÃ£¡£¡
¼ÙÉèÎÒÓÐÁ½¸ötextÎļþ
Ò»¸öÃû½Ð 1.text
ÄÚÈÝ£º
I like PC.... 
ÁíÍâÒ»ÊÇ2.text
ÄÚÈÝ:
function yk as string
endfunction
globals
endglobals
***********************·Ö½çÏß********** ......

DelphiµÄÓï·¨ÎÊÌâ - Delphi / ÓïÑÔ»ù´¡/Ëã·¨/ϵͳÉè¼Æ

Àý×Ó³ÌÐò¼û¸½¼þ£¬ÓÃDelphi 7½øÐбàÒë
ÎÊÌâ´úÂëΪ 
Delphi(Pascal) code:
if Node.ChildNodes <> nil then
begin
for i := 0 to Node.ChildNodes.Count - 1 do
begin
cNode := N ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ