Q&A

  • VB에서 OleVariant로 리턴한 RecordSet을 델파이에서 받는 방법좀 알려주세요
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');

감사합니다.
1  COMMENTS
  • Profile
    홍성락 2004.08.11 02:41

    hsr///////////////////////////////////////////////////////////////
    일단 받아서 문자로 바꾸는건데 답변에 맞는지 모르겠네요
           if varType(RValue) in [VT_BSTR] then
               result := pValue
            else
               result := CurrToStr(pValue);