ファイル単位のEBCDECへのコード変換について

解決

ruru 2006-02-02 21:53:32 No: 130002

VB6でファイル単位で文字コード変換をしようとhttp://hobby400.hp.infoseek.co.jp/software/cvtcode.htm#CvtFileAsciiToEbcdic ここのページのcvtcode.dllを使っていますが、コーディング例のようにしてもオブジェクトは、このプロパティまたはメソッドをサポートしていませんとエラーがでます。分かる方いませんでしょうか？ソースを書いておきます。

Dim cvtcode As Object
Dim pCvtOption As String

Set cvtcode = CreateObject("cvtcode.Class1")

  strCvtOption = "/M2 /H1 /R150 /TBL./tbl\"
infilename = "C:\N伝票.prn"
   outfilename = "C:\A伝票.prn"
If False = cvtcode.CvtFileAsciiToEbcdic(infilename, outfilename, "/M2 /H1 /R150 /TBL./tbl\") Then
MsgBox "変換エラーM伝票！"
  End If

特攻隊長まるるう 2006-02-03 00:25:14 No: 130003

Ver 2.00 のDLLを参照設定してオブジェクトブラウザで
確認したけど、
>Function CvtFileAsciiToEbcdic(pInFile As String, pOutFile As String) As Boolean
となっててインターフェースが違いますね。オプションを受け取る引数は
用意されてないのでは？仕様が変わったか、サイトの説明文が間違ってるのか？
作成者に問い合わせしてみては？

ruru 2006-02-03 02:13:12 No: 130004

オブジェクトブラウザを使ったことがなかったので気付きませんでした。
古いバージョンのものを入れると確かに仕様が変わっていて、サイトの説明と違っていました。
旧バージョンでエラーはなくなりました。
ありがとうございました。