請教一下各位 我現在有兩個程式, 一個是call dll檔的執行檔, 一個是dll檔 程式碼如下 主程式 function GetNum(Master: TADOQuery): TStrings; far; external 'test.dll' ..... ..... GetNum(MasterWork).SaveToFile(C:\test.txt); // 傳入一個TADOQuery dll檔 function GetNum(Master: TADOQuery): TStrings; var code: String; CodeList: TStrings; begin CodeList := TStringList.create; while Not Master.EOF do begin code := Master.FieldByName('TypeCode').AsString; CodeList.append(code); end; end; 執行時會錯誤.....是否要先複製一份DataSet再傳入 還是不能直接傳入TADOQuery會發生記憶體問題......... 錯誤訊息如下 Project TestProgram.exe raised exception class EAccessViolation with message 'Access violation at address 0000009F'. Read of addess 0000009F' Process stopped. Use Step or Run to continue. 請各位幫幫忙了

你試試看把TStrings改成TStringList！ Ian

Hi deng0219 你好:    你的程式會無窮回圈, 要加Next

function GetNum(Master: TADOQuery): TStrings;
var code: String;
    CodeList: TStrings;
begin
   CodeList := TStringList.create;
   while Not Master.EOF do
   begin
      code := Master.FieldByName('TypeCode').AsString;
      CodeList.append(code);
      Next;
   end;
   Result := CodeList;
end;

我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.

Sorry 實際上我是有加 Next 及 result = CodeList 的, 我剛剛漏打了 我認為是不是我傳入TADOQuery的問題 還是有其他的替代方式....

其實我剛剛已經模擬過一次了, 在我這邊寫都沒問題, 是不是欄位問題, FieldByName裡面的欄位是否正確, 你可以在寫Dll的專案中按Delphi的Run-->Parameters, Host Application選擇你的exe檔, Dll程式中設中斷點, 在跑程式去Debug試試 我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.

執行的時候沒有問題...但程式關閉時會發生錯誤... 到底是什麼問題呢???

You used string in between dll and your exe.. so should use ShareMem, btw far is not need in 32bit (unless you are using Delphi 1). http://pywong.hk.st http://www.lazybones.ca

恩....那Sharemem該如何使用呢??有範例可供參考嗎??

既然是TString return的問題, 我把程式改成另一種方式還是不行, 執行時沒問題...但關閉程式或是再執行一次時就會發生錯誤 主程式 procedure GetNum(Master: TADOQuery; PathStr: String); far; external 'test.dll' ..... ..... GetNum(MasterWork, String); // 傳入一個TADOQuery dll檔 procedure GetNum(Master: TADOQuery; PathStr: String); export; ..... ..... procedure GetNum(Master: TADOQuery; PathStr: String); export; var code: String; CodeList: TStrings; begin CodeList := TStringList.create; while Not Master.EOF do begin Code := Master.FieldByName('TypeCode').AsString; CodeList.append(code); Next; end; CodeList.SaveToFile(PathStr); end; 這樣還是不行...到底是怎麼回事,還是要把TADOQuery return回去呢??

Hi deng0219 你好, 介意將程式上傳嗎, 我來Debug看看 我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.

procedure GetNum(Master: TADOQuery; PathStr: String); stdcall; external 'test.dll' ..... ..... GetNum(MasterWork, String); // 傳入一個TADOQuery dll檔 procedure GetNum(Master: TADOQuery; PathStr: String); stdcall; ..... ..... procedure GetNum(Master: TADOQuery; PathStr: String); var code: String; CodeList: TStrings; begin CodeList := TStringList.create; while Not Master.EOF do begin Code := Master.FieldByName('TypeCode').AsString; CodeList.append(code); Next; end; CodeList.SaveToFile(PathStr); end; 綜合大家的意見,我試了將porcedure後加stdcall(原本用export) 並用Sharemem就可以Run了...... 有幾個問題還是不清楚..再請教一下 1.照理說我已經不Return TStrings就應該可以不使用Sharemem(因沒共用memory) 2.用'export'和'stdcall'到底有何不同??

Error like "Invalid pointer operation" when program quits? Probably ShareMem problem. In fact you added a string (Code) created from your dll to exe... so ShareMem is needed. stdcall is calling convention, exe declaration and dll must match on this one. export is export the function from the dll. Personally I prefer a separate section using exports. http://pywong.hk.st http://www.lazybones.ca