FreeBASIC FaqPgbloadworkaround
目次→FAQ→BLOAD/BSAVE text mode work-around←オリジナル・サイト
これらの関数は、テキスト・モードで BSAVE と BLOAD を使えるようにします。
Sub _bsave( file As String, p As Any Ptr, sz As Integer )
Dim As Long ff
ff = FreeFile
Open file For Binary As ff
fb_fileput( ff, 0, ByVal p, sz )
Close
End Sub
Sub _bload( file As String, p As Any Ptr )
Dim As Long ff
ff = FreeFile
Open file For Binary As ff
fb_fileget( ff, 0, ByVal p, LOF( ff ) )
Close
End Sub
ページ歴史:2022-10-17 03:19:17
日本語翻訳:WATANABE Makoto、原文著作者:ChaOs