HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2014
0208
ヒラギノfooty2の読み込みと保存9解決


ヒラギノ

リンク

2014/2/8(Sat) 21:17:38|NO.59772

はじめまして。

http://hsp.tv/play/pforum.php?mode=pastwch&num=54633
にあるサンプルの読み込みと保存はどうすればできますか?



この記事に返信する


check

リンク

2014/2/8(Sat) 23:27:57|NO.59773

リンク先に載っているスクリプトはFooty2を使ったものではなく、
リッチエディットボックスというものを使ったものなのだが……



ヒラギノ

リンク

2014/2/8(Sat) 23:47:11|NO.59774

>checkさん

失礼しました;;
リッチエディットボックスを色やフォントの情報を同時に保存し、読み込むときにその設定を反映させる方法はあれませんか?



ヒラギノ

リンク

2014/2/9(Sun) 09:24:30|NO.59781

このサイトのサンプルが使える(?)と思うのですが、 #include "llmod.as"でエラーが出てしまいます。
#include "llmod3.as"にしてもできませんでした。

http://chokuto.ifdef.jp/urawaza/richedtext.html



hamyuu

リンク

2014/2/9(Sun) 14:58:36|NO.59790

#include "llmod3\\llmod3.hsp"

にすると直りますよ。
起動しても何も表示されませんでしたが...(windows8.1)



fortunehill

リンク

2014/2/9(Sun) 15:29:43|NO.59792

/*ご参考(Googleで”HSP3 リッチエディットボックス”を検索して出る:修正)
リッチエディット - AkicanBlog
ttp://d.hatena.ne.jp/As_hsp/20091120/1258693836
はそのまま動きますね("test.txt"が作成されますが=.rtf)
*/

;蛇足 GetProcAddress LoadLibrary("kernel32"), "WriteFile" dupptr hh,libptr(WriteFile)+24,4



ヒラギノ

リンク

2014/2/9(Sun) 17:31:43|NO.59793

>hamyuuさん
ありがとうございます!僕の環境でも、何も起こりませんでした。

>fortunehillさん

せっかく、貴重なアイデアを頂きましたが、
http://hsp.tv/play/pforum.php?mode=pastwch&num=54633
のサンプルを使う形で保存、読み込みはできませんでしょうか?
できるだけ、少ない方がいいので。

気を悪くされないでください。本当に、すみません。



(’’

リンク

2014/2/9(Sun) 18:46:53|NO.59794

どうもEM_STREAMOUTを送ればいいようですが、どうもそのモジュールはうまく行かなくて(orz)
ここのページがよさそうです
http://chokuto.ifdef.jp/urawaza/savertf2.html
組み込みも楽だと思います

参考:EM_STREAMOUT
http://chokuto.ifdef.jp/urawaza/message/EM_STREAMOUT.html



fortunehill

リンク

2014/2/9(Sun) 23:27:47|NO.59800

/*ご参考(指定スクリプトの各位置に下記を追加する):修正
終了時に内容を保存して実行時に読み込む動作に成るハズです。
( コールバックのバイナリー部分は重複していますが同じものです
モジュールに組み替える際適当に処理して下さい)
*/

;stop :最終行の下に下記を追加する。 #deffunc xxx_Save int p1,str p2,int p3,local ii,local jj,local ww,local nn,local bb bb = $0424448B,$74FF006A,$74FF1424,$74FF1424,$30FF1424,$F70450FF,$40C01BD8,$000010C2 dupptr ww,libptr(WriteFile)+24,4 CreateFileA p2,$40000000,0,0,$2,$80,0 :ii = stat if (ii == -1) {return -1} :jj = ii,ww nn = varptr(jj),0,varptr(bb) sendmsg p1,$44A,limit(p3+1,1,2),varptr(nn) CloseHandle ii return nn #deffunc xxx_Load int p1,str p2,int p3,local ii,local jj,local rr,local nn,local bb bb = $0424448B,$74FF006A,$74FF1424,$74FF1424,$30FF1424,$F70450FF,$40C01BD8,$000010C2 dupptr rr,libptr(ReadFile )+24,4 CreateFileA p2,$80000000,0,0,$3,$80,0 :ii = stat if (ii == -1) {return -1} :jj = ii,rr nn = varptr(jj),0,varptr(bb) sendmsg p1,$449,limit(p3+1,1,2),varptr(nn) CloseHandle ii return nn ; ;*exit :行の下に下記を追加する ;xxx_Save hwnd_re,"test.rtf",1 ; ;dim cf2,21 // CHARFORMAT2構造体:行の下に下記を追加する ;xxx_Load hwnd_re,"test.rtf",1



ヒラギノ

リンク

2014/2/9(Sun) 23:46:47|NO.59801

>(’’さん

すみません。初心者向けではないようです。僕には、さっぱり分かりませんでした。

>fortunehillさん

ありがとうございます!解決できました!
明確な指示なども加えて頂き、感極まる思いです!



ONION software Copyright 1997-2021(c) All rights reserved.