ファイル単位の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

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


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加