Arsip: LoadFromFile untuk semua mode file gimana yah?

more 16 years ago
jancky
Para suhu Delphi mohon bantuan donk,
udah pusing nih tanya sama paman Google tapi belom ketemu ....
ane mau buat program yang membutuhkan loading dari file tertentu.
ane pakai TMemoryStream. Penggalannya seperti ini :
...
ms := TMemoryStream.Create;
try
ms.LoadFromfile(FileName);
pend := @ms.Memory^;
...
nah script diatas berjalan normal ketika file yang diloading tidak sedang dipakai. Pada file tertentu yang sedang berjalan juga bisa, tapi ada yang tidak mau misalnya file tersebut sudah diloading program lain.
Gimana ya supaya bisa untuk semua mode file ?
Ane pernah juga coba pakai metode assign(...
Nah kalau metode ini ane udah dapat untuk loading semua mode file
tapi masih bingung gimana supaya hasil pend (sesuai variabel pada contoh kode di atas) sama hasilnya dengan metode Loadfromfile seperti di atas.
Aduuuh binun nih ada yang bisa bantu nggak yah? please
more 16 years ago
mas_kofa
kalo filename nya dicopy dulu gmn??? tyuz kita load hasil copy-annya......
sorry ...jawaban sekenanya aja....

more 16 years ago
afre_N
coba nih :
var
strminput, strmoutput : Tfilestream;
begin
if FileExists(boxOutputFile.Text) then
if (MessageDlg('Output file already exists. Overwrite?',mtConfirmation,mbYesNoCancel,0) <> mrYes) then
Exit;
strmInput := nil;
strmOutput := nil;
try
strmInput := TFileStream.Create(boxInputFile.Text,fmOpenRead); //tergantung kebutuhan
......
strmOutput := TFileStream.Create(boxOutputFile.Text,fmCreate);
...

more 16 years ago
mat_koder
Ini kutipan Win API help:
HANDLE CreateFile(
LPCTSTR lpFileName, // pointer to name of the file
DWORD dwDesiredAccess, // access (read-write) mode
DWORD dwShareMode, // share mode
LPSECURITY_ATTRIBUTES lpSecurityAttributes, // pointer to security attributes
DWORD dwCreationDistribution, // how to create
DWORD dwFlagsAndAttributes, // file attributes
HANDLE hTemplateFile // handle to file with attributes to copy
);
dwShareMode
Set of bit flags that specifies how the object can be shared. If dwShareMode is 0, the object cannot be shared. Subsequent open operations on the object will fail, until the handle is closed.
To share the object, use a combination of one or more of the following values:
Value Meaning
FILE_SHARE_DELETE Windows NT only: Subsequent open operations on the object will succeed only if delete access is requested.
FILE_SHARE_READ Subsequent open operations on the object will succeed only if read access is requested.
FILE_SHARE_WRITE Subsequent open operations on the object will succeed only if write access is requested.
-----------------------------------
Jadi artinya aplikasi laen ( yg anda ngga punya kontrol terhadapnya ) , jika ngebuka file tsb dan nge-set dwShareMode = 0 , maka anda ngga bisa akses file tsb ampe si aplikasi tadi selesai urusan dengan file tsb.
Sekarang faham kan ?

more 16 years ago
jancky
to afre_N:
makasih tanggapannya,
kalau ndak salah itu cuma untuk meng-Create file, bukan me-Load File yaa..,pakai fmOpenRead nggak semuanya bisa di-Load..
yang dimaksud adalah bisa me-Load semua jenis/mode File walaupun sedang dipakai atau di-Load/mungkin di-Handle aplikasi lain...
to mat_koder:
waduh agak mumed sih tapi entar tak baca & tak pahami dulu & dicoba tentunya...
tapi sebelumnya makasih banyak dech...:)

more 16 years ago
DelphiExpert
var FS: TFileStream;
begin
FS:= TFileStream.Create(FileName, fmOpenRead or fmShareDenyNone);
ms := TMemoryStream.Create;
try
ms.CopyFrom(FS, 0);
pend := @ms.Memory^;

more 16 years ago
LuriDarmawan
[size=9:e0ea77daaf]
note:
akhirnya DE nemuin cara untuk nyisipin code,
jadi ketahuan deh.. kalo fitur ini muncul lagi... dah ada nomor barisnya sekarang ...
[/size:e0ea77daaf]

more 16 years ago
ImanD
note:
@DE
mungkin maksud bos dirimu edit post jadinya ketahuan dengan nomor itu, mungkin sih soale bos ga jelas
more ...
- Pages:
- 1
- 2
reply |
Report Obsolete
AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now:
https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- Update Software
by rudyrc in Hal umum tentang Pascal Indonesia more 19 years ago - menulis string ke file *.ini
by o-dad in Tip n Trik Pemrograman more 16 years ago - Nanya SQL...
by reminder2k1 in MySQL more 15 years ago - Salam kenal
by s1nh4n in OOT more 16 years ago - Menampilkan nama field yang ada di tabel kedalam combo box
by belajaraja in Hal umum tentang Pascal Indonesia more 17 years ago - cara pake key di keybord untuk pindah control
by putukaca in Tip n Trik Pemrograman more 17 years ago - Kenapa Begini ... thread "would you please"
by Manz in OOT more 17 years ago - Lama Gak Berkunjung Delphindo Mkin asik
by Mr-Soft in Kritik & Saran more 18 years ago - Modified Exception
by wh4nx in Enginering more 18 years ago - eject setelah nge-print
by CAHYADI_ONG in Tip n Trik Pemrograman more 17 years ago