焦头烂额一个上午还是搞不定，跪地相求大家，朋友帮忙啊。。。
http://www.delphi2007.net/DelphiDB/html/delphi_20061218121845242.html
library ? MYDLL; ?
? ?
? uses ?
? ? ? sharemem, ?
? ? ? SysUtils, ?
? ? ? StdCtrls; ?
? var ?
? ? ? fjmain ? : ? TADODataSet; ?
? ?
? ? ? type ?
? ? ? ? ? Tps ? = ? Record ?
? ? ? ? ? ? ? ? ? ? sno: ? integer; ? ?
? ? ? ? ? ? ? ? ? ? fjcode:pchar; ?
? ? ? ? ? ? ? ? ? ? fjname:pchar;// ?
? ? ? End; ?
? ? ? Tp=array ? of ? Tps; ?
? ?
? {$R ? *.RES} ?
? ?
? function ? Select(transmode:pchar;var ? PResult:Tp):integer; ? export; ? stdcall; ?
? var ?
? ? ? fjcode,t1,t2:pchar ? ; ?
? ? ? ? totalnum:integer; ?
? begin ?
? ? ? fjmain:= ? TADODataSet.Create(nil); ?
? ? ? ADO配置過程......(OK的) ?
? ? ? fjmain.Connection ? := ? ADOConnection; ?
? ? ? try ?
? ? ? ? ? fjmain.Close; ?
? ? ? ? ? fjmain.CommandText:= ? 'Select ? * ? From ? fjmain ? order ? by ? fjid'; ?
? ? ? ? ? fjmain.Open; ?
? ? ? ? ? t1:=pchar(fjMain.fieldbyname('fjcode').asstring); ? ? ?
? ? ? ? ? t2:=pchar(fjMain.fieldbyname('fjname').asstring); ? ? ? ? ? ?
? ? ? ? ? while ? not ? fjmain.eof ? do ?
? ? ? ? ? begin ?
? ? ? ? ? ? ? if ? (滿足條件) ? then ?
? ? ? ? ? ? ? begin ?
? ? ? ? ? ? ? ? ? totalnum:=totalnum+1; ?
? ? ? ? ? ? ? ? ? setlength(PResult,totalNum); ?
? ? ? ? ? ? ? ? ? PResult[totalNum-1].sno:=totalnum; ?
? ? ? ? ? ? ? ? ? PResult[totalNum-1].fjcode:=t1; ?
? ? ? ? ? ? ? ? ? PResult[totalNum-1].fjname:=t2; ?
? ? ? ? ? ? ? end; ?
? ? ? ? ? ? ? fjmain.next; ?
? ? ? ? ? end; ?
? ? ? ? ? Result ? := ? totalnum; ?
? ? ? finally ?
? ? ? ? ? fjmain.Free; ?
? ? ? ? ? CoUnInitialize; ?
? ? ? end; ? ?
? end; ?
? ?
? exports ?
? ? ? Select; ?
? ?
? begin ?
? ?
? end. ?
? ?
? 以上是我的代碼，現在的問題是 ?
? 第一：我在fjmain表循環的時候，有很多滿足條件的記錄，我看了結果僅僅最后一條記錄中的fjcode,fjname字符串是正確的，其他的都是亂78糟的字符，或者是字符的前幾個字母后面的字母是亂碼，為什么呢？ ?
? 第二：當我連續兩次調用該DLL的時候，會出現內存錯誤，難道我什么地方沒有釋放字符串PCHAR變量,就是t1,t2變量么？ ?
? ?
? 這個問題我已經搞了一個上午了，反復的換pchar,string來試，結果還是有內存問題，大家幫我看看程序的什么地方有問題呢？
totalnum的初始數值是多少
應該不是這個問題，初始值是0 ? 啊
array ? of ? 是Delphi特有的開放數組 ?
? 作為DLL的接口,恐怕有問題的
直接使用fieldbyname().value試試？
totalnum的初始數值?
初始值我說了是0啊，我前面有這樣語句的，我的問題還是在于STRING使用上的問題，因為我一旦去掉 ? ? ? ? ? ? ? ? setlength(PResult,totalNum); ?
? ? ? ? ? ? ? ? ? PResult[totalNum-1].sno:=totalnum; ?
? ? ? ? ? ? ? ? ? PResult[totalNum-1].fjcode:=t1; ?
? ? ? ? ? ? ? ? ? PResult[totalNum-1].fjname:=t2;這幾句，怎么運行都不會出問題的。
1、totalnum的初始值？ ?
? 2、t1,t2是PChar類型，Pchar是指針，不能用來保存數據，當fjmain.Next后，應該指向了無效地址空間。 ?
? 3、array ? of ? 是Delphi特有的開放數組，作為DLL的接口,肯定有問題的。 ?
? 4、在循環中反復使用setlength(PResult,totalNum);分配內存空間，可能造成前面已經賦值的記錄數據丟失，造成亂碼
謝謝以上各位兄弟們的關心和回答，盡管我問題還沒有完全處理掉，但給我了很好的思路，先結帖，順便關于下面的這個問題，問下大哥： ?
? 3、array ? of ? 是Delphi特有的開放數組，作為DLL的接口,肯定有問題的。 ?
? （我ARRAY ? OF只在函數中單獨定義單獨使用，不作為DLL程序和外界程序的接口，可以使用么？） ?
?
我ARRAY ? OF只在函數中單獨定義單獨使用，不作為DLL程序和外界程序的接口，可以使用么？ ?
? =================================================================================== ?
? 那應該沒問題的，另外需要指出的是，輸出記錄地址最好由程序調用Dll函數前分配，不要在Dll中分配
總結
以上是生活随笔為你收集整理的焦头烂额一个上午还是搞不定，跪地相求大家，朋友帮忙啊。。。的全部內容，希望文章能夠幫你解決所遇到的問題。
