jika anda sering bermasalah dalam menggunakan stream, berikut ada beberapa rutin yang biasa saya gunakan untuk mengkonversikan stream.
//Stream Convertion //agus made k (agusmade@yaoo.com) { File to String } function filetostring(afilename:string):string; var fl:TFileStream; begin fl:=TFileStream.Create(afilename,fmOpenRead or fmShareCompat); SetLength(result,fl.Size); fl.Read(result[1],fl.Size); fl.Free; end; { String to File } procedure stringtofile(acontent,afilename:string); var fl:TFileStream; begin fl:=TFileStream.Create(afilename,fmOpenWrite or fmCreate); fl.Write(acontent[1],length(acontent)); fl.Free; end; { Stream to String } function stringtofile(adata:TStream):string; var str:TStringStream; s:string; begin str:=TStringStream.Create(s); str.CopyFrom(adata,adata.size); result:=str.datastring; str.free; end; { String to Stream } procedure stringtofile(s:String;adata:TStream); var str:TStringStream; begin str:=TStringStream.Create(s); adata.CopyFrom(str,str.size); str.free; result:=str.datastring; str.free; end;
Random Articles
- Hidden Storage On NTFS
- TXiButton: Stylish Button!
- Meload data besar dalam dbgrid
- Selamat Menunaikan Ibadah Suci Ramadhan 1428 H, Mohon Maaf Lahir Bathin
- Safely Remove USB Mass Storage Device (Unplug/Eject USB)
- Minimize Seluruh Windows Internet Explorer
- Zoom-In and Zoom-Out Text in a TRichEdit (Undocumented feature)
- New Zeos 6.6.3 Stable
- Windows Kosong dengan WINAPI
- Mengubah tanggal dan jam sistem
Last Articles
Recent Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 3 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 3 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 11 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 11 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 11 years ago