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
- Change case di Tedit
- Mengenal OXYGENE – Pascal For .NET
- Ubah ODBC (MS-Acess, MySQL, MS-SQL Server) dengan Delphi
- Membuat Exe application Delphi sekecil mungkin
- Terbilang versi Indonesia dan english
- Menempatkan Icon dalam System Tray
- Menjalankan Aplikasi dari Lokasi Tertentu ::
- SELAMAT ULTAH KE-25, DELPHI!
- ADO QUERY
- Mencegah Flicker dan Mempercepat Operasi
Last Articles
- Project Group dalam Lazarus
- FastPlaz Database Explorer
- Release: FastPlaz Super Mom v0.12.22
- PascalClass #3: Web Development with Free Pascal
- Makna Pascal di Pascal Indonesia
- Kulgram : Instalasi Lazarus di Perangkat Berbasis ARM
- PascalClass #1: Analisa Database dan Machine Learning
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
- Mengenal OXYGENE – Pascal For .NET
- PascalTalk #5: UX: Research, Design and Engineer
Recent Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 3 months ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 3 months ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 months ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 1 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 8 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 8 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 8 years ago