VB에서 만든 dll을 이용하여 값을 구하려고 합니다.
dll은 regsvr32를 이용해서 등록했고요,
값을 variant로 받는데 그 값을 어떻게 받아서 풀어야 하는지 모르겠습니다.
dll의 Return Type이
[in] = BSTR
[out,retval] = Recordset15**
입니다.
아래에 구현해보려고 한 소스가 있습니다.
var
RValue : Variant;
Obj : olevariant;
begin
Obj := CreateOleObject('IDSSvr.IDSView');
RValue := Obj.gfRS_GetData('20040809');
감사합니다.
hsr///////////////////////////////////////////////////////////////
일단 받아서 문자로 바꾸는건데 답변에 맞는지 모르겠네요
if varType(RValue) in [VT_BSTR] then
result := pValue
else
result := CurrToStr(pValue);