在做ActiveX 元件上的產生錯誤 |
|
缺席
|
|
chenmoneta
一般會員   發表：3 回覆：2 積分：1 註冊：2007-07-26 發送簡訊給我 |
Access Violation At Address 0AFB7D80 .Read Of Address 0AFB7D80
當我按下做好的按鈕去呼叫另外一個USES 的檔案 就產生上面的文字 請問有人知道這是甚麼意思嗎? 原始碼片段 uses ComObj, ComServ, timecos_lib<自己做的>; procedure TActiveFormX.Button1Click(Sender: TObject); var chk:integer; pos_depno,pos_date:string; begin //chk:=timecos_rgrant('usb1'); chk:=timecos_rgrant_ex('usb1');//呼叫timecos_lib if chk=1 then begin { if strtoint(card_limitdate) < strtoint(formatdatetime('yyyymmdd',Now)) then begin showmessage('您的卡片已過期,請聯絡管理人員!'); exit; end; } //main_form.webbrowser1.Navigate(kmp2.WEBADDR 'chklogin.php?api=yes&id=' pchar(card_id) '&pw=' pchar(card_pw)); //timecos_wgrant(pchar(card_id),pchar(card_pw),formatdatetime('yyyymmdd',(strtodate(pos_date) 4)),''); //timecos_wgrant(pchar(card_id),pchar(card_pw),'20060204',''); // timer1.Enabled:=false; close; end; end; 這樣在Build沒問題 在執行就產生問題了 煩高手協助~!!!
------
moneta |
發表時間：2007-08-01 09:24:08
IP:59.127.xxx.xxx 訂閱
系統時間：2024-04-28 4:45:31
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |