type
  RecDef = record
        ID             :string;
        Status         :string;
        PlayTime       :string;
        Speaker        :String;
        Controller     :string;
        Creator        :string;
        CreateTime     :string;
        FinishTime     :string;
        LastUpdateTime :string;
        Updater        :string;
        Comments       :string;
        NewsTotalCnt   :string;
        PrepareTime    :string;
    end;    function Read(var SID :integer; var DB_Name:PChar;var RSId: SmallInt;var RS_SEQ:SmallInt;var FPos:Smallint;var Stamp:SmallInt; pRecord:Pointer):SmallInt;stdcall;external 'Client.dll';     implementation    {$R *.dfm}    var
  InRec : RecDef;
  TBRv:integer;
  ss:string;
procedure TForm1.FormCreate(Sender: TObject);
begin
TBRv := Read(ServerID, dbname, DBRsId, DBRsSeqNo, DBRecNo,  
                DBUFlag, @InRec);
ss:=InRec.ID;
end;    

引言: 試著把你exe及dll都加入ShareMem在第一個單元試試看.. 若不行可否把比較完整的程式丟上來看看.. { Important note about DLL memory management: ShareMem must be the first unit in your library's USES clause AND your project's (select Project-View Source) USES clause if your DLL exports any procedures or functions that pass strings as parameters or function results. This applies to all strings passed to and from your DLL--even those that are nested in records and classes. ShareMem is the interface unit to the BORLNDMM.DLL shared memory manager, which must be deployed along with your DLL. To avoid using BORLNDMM.DLL, pass string information using PChar or ShortString parameters. }

引言: 1. 定義 PRecDef = ^ RecDef; 指針來操作較好。 2. 不要使用 String 。String 不是Dll 標準。 改用 PChar (需申請記憶體）或 ID:Array[0..255] of Char;....

使用了pchar，就沒有錯誤了，但裏面的值卻是空的，哎~~~~

 
 Public Declare Function Read Lib "Client.Dll" (SDI As Long, DB_Name As String, RSID As Integer, Seq As Integer, Number As Integer, ByRef Stamp As Integer, Record As Any) As Integer    Type RecDef
    ID As String * 13
    Status As String * 4
    PlayTime As String * 3
    Speaker As String * 16
    Controller As String * 16
    Creator As String * 16
    CreateTime As String * 16
    FinishTime As String * 16
    LastUpdateTime As String * 16
    Updater As String * 16
    Comments As String * 32
    NewsTotalCnt As String * 3
    PrepareTime As String * 6
End Type    Public InRec As RecDef    Private Sub Form_Load()
dim ss as string
TBRv = TB_Read(ServerID, DB.Name, DBRsId, DBRsSeqNo, DBRecNo, DBUFlag, InRec)
ss=InRec.ID
End Sub

引言:

Type RecDef
    ID As String * 13
    Status As String * 4
    PlayTime As String * 3
    Speaker As String * 16
    Controller As String * 16
    Creator As String * 16
    CreateTime As String * 16
    FinishTime As String * 16
    LastUpdateTime As String * 16
    Updater As String * 16
    Comments As String * 32
    NewsTotalCnt As String * 3
    PrepareTime As String * 6
End Type

type
  RecDef = record
        ID:            array [0..12] of char; // string * 13
        Status:        array [0..3]  of char; // string * 4
        ... 餘累推
        PrepareTime:   array [0..5]  of char; // string * 6
    end;