這個Dll為何調用出錯呢？ |
|
尚未結案
|
|
hcker
中階會員   發表：95 回覆：118 積分：62 註冊：2003-02-09 發送簡訊給我 |
這個Dll為何調用出錯呢？ Dll裏有個Unit1. function getweb(web:string):string ;stdcall;
一個函數 function getweb(web:string):string;
function getweb(web:string):string;
var
i, i1: integer;
s, s1: string;
begin dllmain.memo1.Lines.Add(dllmain.IdHTTP1.Get(web)); for i := 0 to dllmain.memo1.Lines.Count - 1 do
begin
if pos('http', pchar(dllmain.memo1.Lines.Strings[i])) <> 0 then
begin
s := trimleft(dllmain.memo1.Lines.Strings[i] dllmain.memo1.Lines.Strings[i 1]);
i1 := pos('http', s);
s1 := copy(s, i1, 250);
if s1<>'' then Result :=s1;
end;
end;
end; 為什麼我做成Dll 來調用就出錯呢？如果我是使用一個工程就沒問題？ ----------要知道自己有多笨，到DelphiK.Top來看看----------
|
|
malanlk
尊榮會員 發表：20 回覆：694 積分：577 註冊：2004-04-19 發送簡訊給我 |
|
|
mine
中階會員 發表：28 回覆：129 積分：56 註冊：2004-03-31 發送簡訊給我 |
|
|
acqua
一般會員  發表：3 回覆：24 積分：20 註冊：2005-09-13 發送簡訊給我 |
發表時間：2005-09-09 19:13:02
IP:59.32.xxx.xxx 未訂閱
系統時間：2024-05-07 7:24:35
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |