とある機器のOCXからの関数での変数の扱いがわからないのでお助けください。 (ID：45462)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

とある機器のOCXからの関数での変数の扱いがわからないのでお助けください。

function AXSensor1.GetFInfo(var pSRInfo: OleVariant):integer;
取り込んだActiveX内に上記の関数が有り、変数OleVariantにDATAが入るのですが
そして、このOleVariantに入れたデータをDBに格納して管理をしたいのですが
OleVariantをByteに変換？扱いが分からなくて・・・

サンプルがVB.netとVC.net系しか無く
参考にして、色々と数日間  調べたり試したりしてるのですが
未熟すぎて、どうしても解決できません・・・
ご指南のほど宜しくお願いいたします。

↓↓↓  取り込んだOCXをFormに張り付けた  イベントです
//OLE ActiveX
procedure AXSensor1OnEventMsg(ASender: TObject; wParam, lParam: Integer);
var
  pBy_Info: OLEVariant;
  dwErrID: LongInt;
begin
  ErrID := AXSensor1.GetFInfo(pBy_Info);
  
  pBy_Info; // この中身をDBに保存したい。
  
  // この中身をByte型？  に変更して？DBにBLOBで保存？
  // 
  // 
  
end;
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−

//VBサンプル
Private Sub AXSensor_OnEventMsg(ByVal sender As System.Object, ByVal e As AxSREXFSUXAXLib._DSRexFSUxAXEvents_OnEventMsgEvent) Handles AXSensor.OnEventMsg
  Dim pBy_Info() As Byte
  Dim dwErrID As Long
  
  ' センサー情報データ 1048Byte
  ReDim SRexInfo(1048)
  
  ' センサー情報取得
  dwErrID = AXSensor1.GetFInfo(pBy_Info)

環境
Windows7
Delphi XE Ent

本当に宜しくお願いいたします。

←解決時は質問者本人がここをチェックしてください。

戻る