DelphiÖÐÓÃspcomm·¢ËͺͽÓÊÕÖÐÎÄ¡¢Ó¢ÎĶÌÐŵijÌÐò´úÂë £¬£¬ÄÄλ´óϺÓаï°ïæ
СµÜ²»Ê¤¸Ð¼¤.........
×îºÃÊÇÓÃATÖ¸ÁÀ´ÊµÏÖ´®¿ÚͨÐŵģ¡£¡£¡£¡
ÊDz»ÊÇÓÃsim508Ä£¿é°¡ ˵µÄÇå³þµã°¡
ÊÇ°¡ ÊÇ°¡ ÐÖµÜ ÄãÕ¦ÖªµÀÄØ ¾ÍÊÇÄǸöÄ£¿é ÄãÒªÊÇÓо͸øÎÒ·¢¹ýÀ´°É ¶àлÁË...... ......
µ÷ÓÃdelphiдµÄÒ»¸öcom×é¼þ£¬·½·¨ÊÇ
procedure test(out Param1: Integer); safecall;
×¢²ácomÖ®ºóÔÚc#ÖÐÒýÓö¼Ã»ÓÐÎÊÌâ
............´´½¨²¿·Ö¾ÍÊ¡ÂÔ²»Ð´ÁË
............
int v_int;
test(out v_int); µ÷ÓÃtest
µ«ÊÇÔËÐгö´í£¬
·þÎñÆ÷³öÏÖÒâÍâÇé¿ö¡£ (Òì³£À´×Ô HRESULT:0x80010105 (RPC_E_SERVERFAULT))
Õâ¸ö¼òµ¥ ......
listboxµÄOndrawltemʼþÔÚʲôÇé¿öÏ´¥·¢£¿
var
thepchar:array[0..79] of char;
thestring:string;
begin
...
strpcopy(thepchar,thestring);
longint(@thepchar);
......
end;
ÎÒÏëÎÊ
strpcopy(thepchar,thestring);
¼ÓÈëthestring='123';
¾¹ýÉÏÃæµÄº¯ÊýÖ®ºóÊDz»ÊÇ[0]=1 [1]=2 [2]=3
longint(@thepchar)Õ ......
ÎÊ´ó¼Ò¸öÎÊÌ⣺
ÏÖÔÚÓÐÒ»¸öÏֳɵijÌÐò£¬ÊÇvisual foxpro×öµÄ£¬Êý¾Ý¿âÊÇdbfÎļþ£¬ÎÒûÓÐÓùýfoxpro£¬¿ªÊ¼¶¼Ã»ÕÒµ½Êý¾Ý¿â£¬ÖÕÓÚ¿´Ã÷°×ÔÀ´dbf¾ÍÊÇÊý¾Ý¿â£¬£¨µ«Õâ¸ö³ÌÐòºÃ¶à¸ödbf°¡£¡»¹Ã»°²×°foxpro£¬Ã»´ò¿ªÕâЩÊý¾Ý¿â£©
ÏÖÔÚÒªÎÒ×öÁíÒ»¸ö³ÌÐò£¬ÎÒÊÇÓÃdelphi¿ª·¢µÄ£¬±¾À´ÊÇÏëÓÃdelphiÁ¬½Óaccess£¬×÷Ϊһ¸öµ¥»ú³ÌÐò·Å¹ýÈ¥¡£
......
//DLL ·ÅÔÚEXEÖÐûÎÊÌâ
function SkinForm(var skfrm:TForm):Integer;stdcall;
var
skf:TbsBusinessSkinForm;
nskfrm:TForm;
begin
frmUUMain:=skfrm;
skf:=TbsBusinessSkinForm.Create(skfrm); //ÕâÀï³öÏÖVA´íÎó£¬
UpdateSkin(skfrm);
//SkinFor ......
²»ºÃÒâ˼£¬You are fooled£¡
¹þ¹þ£¬ÓÞÈ˽ڿìÀÖ£¡ÎÒÒªÄÜÈ«¸ãµ½£¬ÎÒ¾ÍÈ¥¹ú¼Ò°²È«¾ÖÁË£¡
ºÇ£¬Ä㻹ÕæÏñ°²È«¾ÖµÄ
b4
¹þ¹þ£¡
ÕæºÃ
b4
ÎÒµ¹
¹þ¹þ£¡
½ñÌìÒ»¶¨ÒªÇõ¹Ò»個»ðÐǵġ£
ÕâÀïÓкܶà°æÖ÷
ÎÒ³ÐÈÏÎÒÊdzåÕâ200·Ö½øÀ´µÄ
²»¹ý Ìû×ӸijÉDelphi°æÀúÈΰæÖ÷Í·ÏñµÄ»° ËûÃǾͶ¼½øÀ´ÁË
......