delphiÈçºÎʵÏÖÍøÒ³ÄÚÈÝÁí´æÎªÎı¾Îļþ
¾ÍÏñIEÀïµÄÎļþ--Áí´æÎªÎı¾Îļþ£¬²»ÊDz鿴 Àï µÄ Ô´Îļþ
idhttp -----get
È»ºó±£´æÎªÎļþ¼´¿É
LSµÄ·½·¨µÃµ½µÄÊǰüº¬HTML´úÂëµÄÎļþ,
¸øÄãµÄ·½·¨¾ÍÊÇÏÈÓÃ1Â¥µÄ·½·¨»ñµÃÎļþºó,ÔÚ°ÑHTML±êÖ¾Ìæ»»»òÈ¥µô¾Í¿ÉÒÔÁË
IEÀïµÄ²é¿´Ô´ÎļþÊǺ¬ÓдúÂëµÄÎļþ£¬IEµÄÁí´æÎªÎı¾Îļþ£¬µÃµ½µÄÊDz»º¬´úÂëµÄ´¿Îı¾Îļþ£¬¶øÇÒ¶þÕߵĽá¹ûÊDz»Í¬µÄ£¬Áí´æµÄÎļþÀﺬÓеÄÄÚÈÝ£¬ÔÚÔ´ÎļþÀïÊÇûÓеÄ
×Ô¼ºÔÙд¶Î´úÂ뽫±êʶÇå³ý¼´¿ÉÂ¶¼ÀÁµ½Õâ³Ì¶ÈÁË
var vHandle: THandle;
begin
vHandle :=webbrowser1.Handle;
vHandle := FindWindowEx(vHandle, 0, 'Shell DocObject View', nil);
vHandle := FindWindowEx(vHandle, 0, 'Internet Explorer_Server', nil);
SendMessage(vHandle, WM_COMMAND, 71, Handle);
È»ºóÔÚÒ³ÃæÖÐÑ¡ÔñtxtÀàÐͱ£´æ¼´¿É¡£
ÈËÈËÓзݣ¬½áÌù½áÌù½áÌù½áÌù½áÌù½áÌù
Ïà¹ØÎÊ´ð£º
ÒÑÖªPython ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ
ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......
Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿
ÎÞÈ˻شð£¿
×ö³É×ÊÔ´Î ......
delphiÒþ²ØÔËÐÐQQ³ÌÐò
¿ÉÒÔʵÏÖÒþ²ØµÇ¼£¡µ«±ØÐëÊÇ2008ÄêÒÔǰµÄ°æ±¾¡£09¼°ÒÔºó×Ô¶¯µÇ¼ÓÐЩÄѶȡ£
¿ÉÒÔʵÏÖ ²»¹ý·ÖÌ«ÉÙ
¿ÉÒÔʵÏÖµÄѽ
¶¥
Äãµ½µ×Òª¸Éʲô,Ò ......
Delphi(Pascal) code:
function DBGridEhToExportFile(dbgrideh:TDBGridEh;filename:string='µ¼³öµÄÎļþ'):boolean ;
var ExpClass:TDBGridEhExportClass;
Ext:String;
savedialog1:tsavedialog;
b ......
ÎÒÏëдһ¸öÔÚ´ò¿ªÍøÒ³ºó£¬ÆäÖÐÍøÒ³ÖÐÓÐÏÂÀÁбí¿òÀïÃæÓм¸¸öÖµ£¬ÎÒÔÚÏëÔÚÊÂÏÈ»¹Ã»Óдò¿ªÍøÒ³Ç°Ñ¡Ò»¸öÖµ£¬ÔÚ´ò¿ªÍøÒ³ºó£¬ÍøÒ³ÖÐÕâ¸öÏÂÀÁбí¿ò¾ÍÏÔʾÎÒÊÂÏÈѡȡµÄÖµ¡£Ð¡µÜ²»»á£¬Ï£ÍûÄÄλ´óÏÀ³öÊÖÏàÖúһϣ¿£¿£¿£¿£¿
......