ab.com コミュニティ

ActiveBasicを通したコミュニケーション
現在時刻 - 2024年3月28日(木) 20:17

全ての表示時間は UTC+09:00 です




新しいトピックを投稿する  トピックへ返信する  [ 4 件の記事 ] 
作成者 メッセージ
投稿記事Posted: 2010年1月02日(土) 23:52 
オフライン

登録日時: 2009年3月29日(日) 15:45
記事: 106
あけましておめでとうございます。
ご無沙汰しております。

今回、以前に『独自のインストーラ的なものを作りたい!』と、
リソースについて調べていましたが、Konisi様の助言で、
exeにファイルをくっつけていくという手段にしました。

しかし、やってみると、ひとつしかファイルをくっつけることが出来ません。
ということは、ZIPなどで圧縮して1つにまとめたものをくっつけるなどの方法しかないのですが、
それだと、『最初からZIPで配布しろや』ということになってしまいます。
(切り離しのコードをいじる実力はない)

なので、適当なファイルにファイルを合成し、それをくっつけるという手段を選び、
いろいろと実験して来ました。

やっとの思いで、合成する側のコードは書けたと思うのですが、
それを元に戻すのがなぜか出来ません。

分かる方がいらっしゃいましたら、添削の方をお願いします。

まとめる処理
とりあえず、FileInfo.txtだけを読み出そうとして失敗したコード

_________________
↓個人的ソフト置き場
http://www.software.jpn.org/
↓萌えゲー製作とかしていたい
http://www.holygate.jpn.org/


通報する
ページトップ
 記事の件名:
投稿記事Posted: 2010年1月03日(日) 16:48 
オフライン

登録日時: 2005年7月25日(月) 13:27
記事: 893
お住まい: 埼玉県東松山市
まだ実行してみてないのですが、読み込むほうだけ見てて怪しいなと思ったところが2点。
コード:
'テキストファイルを出力
Dim TextFileSize As Long
TextFileSize=Val(Str$(buf))/1024
free(buf)
の部分、bufはBytePtr型なので、こいつをStr$に渡してもbuf自体が格納しているアドレスをString型にして返すだけです。
MakeStr関数を使ってみてください。

もう1つは、その直前のReadFile関数の第3引数が初期化されていない点。グローバル変数なので今の実装では0で初期化されてる筈。
つまり1バイトも読み込めていません。

_________________
Website→http://web1.nazca.co.jp/himajinn13sei/top.html
ここ以外の場所では「暇人13世」というHNを主として使用。

に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。


通報する
ページトップ
投稿記事Posted: 2010年1月13日(水) 22:16 
オフライン

登録日時: 2009年3月29日(日) 15:45
記事: 106
ためしに修正したみたところ、
1Byteも読み込まれなくなってしまったのですが・・・


_________________
↓個人的ソフト置き場
http://www.software.jpn.org/
↓萌えゲー製作とかしていたい
http://www.holygate.jpn.org/


通報する
ページトップ
 記事の件名: 厳しい言い方ですが
投稿記事Posted: 2010年1月13日(水) 23:51 
まず、ファイルフォーマットを明確にして下さい。
あなたのコードは非常に長いので、読みにくいです。
はっきり言って本人に分からないものなど、読む気もしないというのが本音です。

TextFileSize=Val(buf)/1024
ここのTextFileSizeを適当に変えることでその値だけファイルを読むことはできるので、
ここがおかしいであろうと思われます。


通報する
ページトップ
   
期間内表示:  ソート  
新しいトピックを投稿する  トピックへ返信する  [ 4 件の記事 ] 

全ての表示時間は UTC+09:00 です


オンラインデータ

このフォーラムを閲覧中のユーザー: Ahrefs [Bot] & ゲスト[22人]


トピック投稿:  可
返信投稿:  可
記事編集: 不可
記事削除: 不可
ファイル添付: 不可

検索:
ページ移動:  
cron
Powered by phpBB® Forum Software © phpBB Limited
Japanese translation principally by ocean