掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
バイナリファイルの書き込み (ID:39461)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
お世話になります。 D6P + XP バイナリファイルを書き込む部分をVBからDELPHIに移植を試みています。目的とするサンプルを探しましたが手がかりがつかめず質問させていただきました。Delphiのページで恐縮ですがやりたいことはVBで書くと次のようなものです。 'Private VLng(200) As Long 'VBでは4バイトの整数 'Private Vsgl(200) As Single '４バイト 'Private Ndata As Integer Private Sub Command1_Click() Dim BinFile As String Dim P0 As Integer, I As Integer, II As Integer BinFile = App.Path & "\TEST1.bin" Open BinFile For Binary As #1 For I = 1 To NData P0 = (I - 1) * 8 + 1 II = P0 : Put #1, II, VLng(I) II = P0 + 4 : Put #1, II, Vsgl(I) Next I Close #1 End Sub よろしくお願いします。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.