PB 電子会議室

コメント

発言No. 更新日 題名(クリックすると発言内容と関連するコメントが表示されます)
3501 98/10/02 09:59:04 RE(1):OLEについての続き。 By まこと
3499 98/10/02 08:48:40 PB6: VBで作成されている OLEを PBで使う方法を教えて下さい。 By まこと

カテゴリ:スクリプトの記述
日付:1998年10月02日 08:48 発信者:まこと
題名:PB6: VBで作成されている OLEを PBで使う方法を教えて下さい。

以下のOLEを利用したいのですが、VBで作成されておりPBで使う方法がわかりません。

例えば、ole_1.Mode = BYTE  としても認識されません。
説明に従うと、バイナリデータをByteArrayバイト配列なるものに入れ、sizeに表示する
サイズを入れ、OLEコントロール内の Set関数でデータを転送する事になるのだとは
思うのですが・・・・
**
<バイナリの直接表示用OLEコントロール>
プロパティ
--------
Address As Long
表示開始アドレスです。設定すると表示が変化します。

BackColor As OLE_COLOR 背景色です。

Property Byte(Address As Long) As Integer
Addressの番地のバイトを読み書きします。 Addressはバイト単位です。

Property DWord(Address As Long) As Long
Addressの番地のダブルワードを読み書きします。 Addressはバイト単位です。

Font As StdFont フォントです。

ForeColor As OLE_COLOR 表示文字色です。

Mode As ModeConstants 表示モードです。 BYTE/WORD/DWORDを選択します。

Size As Long データ数(バイト単位)です。
設定時にサイズが縮小する場合領域を切り捨てます。

Property Word(Address As Long) As Integer
Addressの番地のワードを読み書きします。 Addressはバイト単位です。

メソッド
------

Function Add(ByteArray, Size As Long) As Long
ByteArrayバイト配列のデータをSizeバイト数追加します。 追加バイト数を返します。

Sub Clear() メモリデータをクリアします。

Function Get(Address As Long, ByteArray, Size As Long) As Long
Address番地からByteArrayバイト配列にSizeバイト数データを読み込みます。
転送バイト数を返します。

Function Set(Address As Long, ByteArray, Size As Long) As Long
Address番地にByteArrayバイト配列からSizeバイト数データを書き込みます。
転送バイト数を返します。

Dumpコントロールにデータを転送するにはバイト配列を使用します。

転送方法
Size_read = orafield.GetChunkByte(ByteArray, offset, numbytes) 
Dump1.Add ByteArray,Size_read
または
Dump1.Size = Size_read
Dump1.Set 0, ByteArray,Size_read
です。

付加情報:

PowerBuilder Version (記載なし)

Client SoftWare

OS Windows NT 4.0
DBMS Oracle SQL*Net 2.3
Browser (記載なし)

Server SoftWare

OS (記載なし)
DBMS Oracle 7.3
WebServer (記載なし)

PowerSpaceの運営は、パワーフューチャー株式会社が行っております。
Copyright © 2013 Power Future Co., Ltd.