Kod: Tümünü seç
function compile_xml(xml:IXMLREQUESTType):Boolean;export;
begin
Result := False;
with xml do
begin
parsed.Base.base_ID := ID;
parsed.Base.Base_ver := VERSION;
....
.
.
.
.
end;
Result := True;
end;
Kod: Tümünü seç
Function compile_xml(xml:IXMLREQUESTType):boolean;far;external '..\xml.dll';
bu unitimde record typlerimi oluşturdum
bunlar
Kod: Tümünü seç
type
TBase = Record
base_ID :string;
Base_ver:string;
seasion_id : string;
end;
dll'ime debug yapabilmem için dll'i çağırdığım exe'yi parametre olarak geçtim
dll'i çağırdığım exede aşşağıdaki kodu kullanarak
Kod: Tümünü seç
if compile_xml(xml) then
begin
// Memo1.Lines.Add('dfsf');
Memo1.Lines.Add(Base.Base_ver);
end;