ReadFileAPIで (ID:80589)

名前

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

本文 はじめまして、武藤と申します。 過去ログ検索しましたが、同じ内容はないと思い新規で質問させていただきました。 現在VB6+SPでC言語で書かれているプログラムをVBに移植しています。 CreatFile したファイルを ReadFile しているのですが、 ReadFile で失敗（戻り値が0）してしまいます。 エラーコードを取得すると「メモリロケーションへのアクセスが無効です」と なっています。ポインタの扱いが間違っているように思うのですが・・・ 申し訳ありませんがアドバイスお願いいたします。 Dim fp As Long Dim file As String Dim lFileSize As Long Dim pBuffer As Long Dim rByte As Long file = Text10.Text fp = CreateFile(file, GENERIC_READ, 0&, 0&, OPEN_EXISTING, 0&, 0&) lFileSize = FileLen(file) pBuffer = GlobalAlloc(GPTR, lFileSize) Sts = ReadFile(fp, pBuffer, lFileSize, rByte, 0&) 〜〜エラーチェックしてやりたい処理〜〜 CloseHandle (fp) Call GlobalFree(pBuffer)