Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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 Êý×éÈçºÎ¶¯Ì¬Ôö¼Ó

//ÏÂÃæÊÇÒ»¼Ç¼£¬ÈýÎ¬×ø±ê
type
  Tposition  = record
    x:integer;
    y:integer;
    z:integer;
  end;

//======ÏÂÃæÊÇÒªÔÚÒ»¸öÑ­»· ......

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

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

delphi Ctrl+×ó¼ü ÎÞ·¨²é¿´ windows.pas Ôõô°ì

ÎÒ°²×°µÄÊÇÆóÒµ°æ¡£¡£¡£ 
ÎÒÎÊÏ£¬ CTRL+×ó¼ü Äܲ鿴 windows.pas Âð£¿
¾ÍÊÇ ½Ó¿ÚÀïµÄwindows¡£

µ±È»¿ÉÒÔ,CTRL+×ó¼üµã»÷Interface²¿·ÖµÄWindows¾Í¿ÉÒÔÁË

ɶɶÆóÒµ°æ£¿È¥°²×°Ä¿Â¼¿´¿´libÎļþ¼ÐÏÂÓÐÃ»Ó ......

delphi¹Ø¼ü×Ö

unit TestRa;
interface
uses
type
var
implementation

´´½¨Ò»¸öformϵͳ×Ô¶¯Éú³ÉÕ⼸¸ö¹Ø¼ü×Ö£¡
1.ËûÃÇÖ®¼äÓÐʲô¹ØÁªÂð£¿
2.ϵͳ¶ÔËûÃÇÊÇÈçºÎ¶¨ÒåµÄ£¿
3.delphiÓïÑÔÌåϵ½á¹¹ÊÇÔõô ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ