Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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 for PHP

ÈçÌâ¡£
¸Ð¾õÈçºÎ£¿½»Á÷Ï¡£

ûÓÐÑо¿¹ý£¬ºÇºÇ

ÓÐɶÑо¿Í·£¿

ÄǸö¶«Î÷£¬ÊǸö¼¦Àߣ¬£¬Ã»ÓÐʲôÒâ˼£¬·¢ÏÖ£¡£¡

ÓÃÀ´×öB/S¼Ü¹¹µÄMISϵͳµÄ»°Ó¦¸Ã¿ÉÒÔÌá¸ß½çÃæ¿ª·¢µÄЧÂʰɣ¿


ÒòΪ²»ÊìϤDelphi £ ......

ÈçºÎ²é¿´delphiÄÚ²¿´úÂë

ÇëÎʸ÷λÄܲ»ÄÜ¿´µ½delphiÖÐ×Ô´ø×é¼þµÄÄÚ²¿´úÂë,±ÈÈçÔõôȥ¿´speedbuttonµÄflat·½·¨ÖеĴúÂëµÈ.
SpeedButton1.Flat

Êó±êÒÆµ½FlatÉÏ£¬°´×¡Ctrl¼ü£¬×ó»÷

¶ÔÁË£¬SpeedButton1 ±ØÐëÊÇ´´½¨ºÃµÄ

Êǰ¡£¬¾ÍÕâà ......

delphi MDI´°ÌåÎÊÌâ

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


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

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

DelphiÉî¶ÈÌ×ÀÎÖÐ...É¢·Ö

ÎÒÕ¦Õâô³ÕÃÔDelphiÄØ£¿°¥£¬É¢·ÖÏû³î¡£
˳±ãÏ£ÍûDelphi 2010 Update2Ôçµãbug-free...
sf

¶àл£¬DELPHIÐÂÊÖ£¬Çë¶à¹ØÕÕ

jf

ÒýÓÃ
¶àл£¬DELPHIÐÂÊÖ£¬Çë¶à¹ØÕÕ


ÈËÈ˶¼ÊÇÐÂÊÖ£¬Ö»ÓÐÕâÑùÐÄ̬²Å ......

delphi¹Ø¼ü×Ö

unit TestRa;
interface
uses
type
var
implementation

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