delphiµ÷ÓÃͼÐÎʶ±ðdll³ö´í!!!!!!!
delphi µ÷ÓÃͼÐÎʶ±ðdll×ÜÊDZ¨µØÖ·Ö®ÀàµÄ´íÎó£¬Çë´ó¼Ò°ïæ¿´¿´ÊÇʲôÎÊÌâ,´úÂëÈçÏÂ:
implementation
function OCR(imgname:string;i:integer):PChar;stdcall;external 'AspriseOCR.dll';
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
vcode:PChar;
filename:string;
begin
filename:='test1.bmp';
vcode:=OCR('e:\poll\demo\test1.bmp',-1);
edit1.Text:=strpas(vcode);
end;
end.
˸øÄã×öµÄdll, µÚÒ»¸ö²ÎÊýÊÇ string ?
dllÓÃdelphiдµÄÂð?
²»Êǵģ¬ÊÇÔÚ¹úÍâµÄÒ»¸öÍøÕ¾ÏÂÔØµÄDLL£¬ËµÃ÷ÎĵµËµÊÇ¿ÉÒÔÖ§³Ödelphiµ«Ã»ÓÐÀý³Ì£¬ÕâÊÇÎÒ·ÂVBµÄÀý³Ìд³öµÄ¡£
VBµÄÀý³ÌÊÇ£º
private declare function ocr lib "aspriseocl.dll"(byval file as string,byval imagetype as long )as string
private declare function ocrbarcodes lib "asperiseocr.dll"(byval file as string,byval imagetype as long ) as string
private declare function ocrpart lib "aspriseocr.dll" (byval file as string,byval imagetype as long,byval startx as long,byval starty as long,byval width as long,byval height as long) as string
private sub command2_click()
dim ret as string
ret=ocr("c:\test.bmp",-1)
end sub
»ØÂ¥ÉÏ£¬¸ÄÁË»¹ÊDZ¨Ò»ÑùµÄ´í
access violation at 0x00000000:read of address ox00000000'.
ÄǾÍÓ¦¸Ã²éÒ»ÏÂÎļþ·¾¶ÊÇ·ñÕýÈ·¡¢¸ÃDllÊÇ·ñÐèÒªµ÷Óóõʼ»¯¹ý³Ì¡£
{{----
Ïà¹ØÎÊ´ð£º
ÈçºÎÈÃMDI´°ÌåÖ»Äܽ¨Á¢Ò»¸ö×Ó´°Ìå?
1¡¢Ö»ÒªÒ»¸ö×Ó´°Ì壬ÄÇÓÃMDIÒâÒåºÎÔÚÄØ£¬¿ÉÒÔÖ±½ÓÓÃSDI´°ÌåÁË
2¡¢Èç¹ûÒ»¶¨ÒªÕâÑù£¬Í¨¹ýTForm.MDIChildCountÊôÐÔ¿ØÖÆ
Â¥Ö÷ÏëÒª×öÒ»¸öµ¼º½½çÃæ£¿£¿
µ¼º½Ò³ÃæµÄʵÏÖ˼ ......
½ñÌìÔÚÍøÉÏÎÞÒâ¿´µ½ÓÐЩ¹«Ë¾Ê¹ÓõÁ°ædelphi IDE±»²éµÄÊ£¬ËµÊÇÓкóÃÅ¡£
ºóÀ´ÎÒ²âÊÔÁËһϣ¬Æô¶¯delphi 7ºóȷʵ»á×Ô¶¯Á¬½Óµ½ÃÀ¹úµÄÒ»¸öIP£¬²»ÖªµÀÊÇ´«ËÍһЩʲôÐÅÏ¢¡£
Ïñdelphi7Õâô¾ÉµÄ°æ±¾ËûÃÇ»¹»á²éÂð£¿
D ......
¼ÙÈç¹â±êÔÚµÚ¶þÐпªÊ¼´¦
ÆäËü±à¼ÓïÑÔºÍÎı¾±à¼Æ÷¶¼¿ÉÒÔ
°´Ïòǰ·½Ãæ¼ü
Ö±½Óµ½´ïµÚÒ»ÐеÄβ²¿
ΪʲôDELPHI±à¼Æ÷²»¿ÉÒÔѽ
......
Õâ¸öÊÇÀ¹½Ø°´¼üÏûÏ¢²¢²âÊÔÊÇ·ñΪENTER¼ü¡£
begin
case wParam of
WM_KEYDOWN:
fEatKeystroke := (p.vkCode = VK_RETURN);
& ......
delphi´úÀíÎÊÌâ Çó½â ÔÚÏßµÈ
procedure TForm1.Button3Click(Sender: TObject);
var
info : INTERNET_PROXY_INFO;
reg : TRegistry;
begin
reg := TRegistry.Crea ......