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

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ÊÇ·ñÐèÒªµ÷Óóõʼ»¯¹ý³Ì¡£
{{----


Ïà¹ØÎÊ´ð£º

delphi MDI´°ÌåÎÊÌâ

ÈçºÎÈÃMDI´°ÌåÖ»Äܽ¨Á¢Ò»¸ö×Ó´°Ìå?
1¡¢Ö»ÒªÒ»¸ö×Ó´°Ì壬ÄÇÓÃMDIÒâÒåºÎÔÚÄØ£¬¿ÉÒÔÖ±½ÓÓÃSDI´°ÌåÁË
2¡¢Èç¹ûÒ»¶¨ÒªÕâÑù£¬Í¨¹ýTForm.MDIChildCountÊôÐÔ¿ØÖÆ


Â¥Ö÷ÏëÒª×öÒ»¸öµ¼º½½çÃæ£¿£¿

µ¼º½Ò³ÃæµÄʵÏÖ˼ ......

ʹÓõÁ°ædelphi IDE»á²»»á±»²é£¿

½ñÌìÔÚÍøÉÏÎÞÒâ¿´µ½ÓÐЩ¹«Ë¾Ê¹ÓõÁ°ædelphi IDE±»²éµÄÊ£¬ËµÊÇÓкóÃÅ¡£
ºóÀ´ÎÒ²âÊÔÁËһϣ¬Æô¶¯delphi 7ºóȷʵ»á×Ô¶¯Á¬½Óµ½ÃÀ¹úµÄÒ»¸öIP£¬²»ÖªµÀÊÇ´«ËÍһЩʲôÐÅÏ¢¡£
Ïñdelphi7Õâô¾ÉµÄ°æ±¾ËûÃÇ»¹»á²éÂð£¿
D ......

delphi±à¼­Æ÷Ôõô°Ñ¹â±êÒÆµ½ÉÏÐÐβ

¼ÙÈç¹â±êÔÚµÚ¶þÐпªÊ¼´¦
  ÆäËü±à¼­ÓïÑÔºÍÎı¾±à¼­Æ÷¶¼¿ÉÒÔ
  °´Ïòǰ·½Ãæ¼ü
      Ö±½Óµ½´ïµÚÒ»ÐеÄβ²¿
      ΪʲôDELPHI±à¼­Æ÷²»¿ÉÒÔѽ

  ......

СµÜ²»»áDELPHI£¬Çë´óÏÀÃǰï¸öæ

Õâ¸öÊÇÀ¹½Ø°´¼üÏûÏ¢²¢²âÊÔÊÇ·ñΪENTER¼ü¡£
  begin
    case wParam of
      WM_KEYDOWN:
      fEatKeystroke := (p.vkCode = VK_RETURN);
  & ......

delphi´úÀíÎÊÌâ Çó½â ÔÚÏßµÈ

delphi´úÀíÎÊÌâ Çó½â ÔÚÏßµÈ
procedure TForm1.Button3Click(Sender: TObject);
var
  info : INTERNET_PROXY_INFO;
  reg  : TRegistry;
begin

  reg := TRegistry.Crea ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ