Arsip: Menyembunyikan file dalam gambar dgn delphi II


by reev in Serba Neka more 17 years ago 2975
Thanks @Mas Kofa atas reviewnya pada artikel saya yang gak ada hubungannya sama sekali dengan Delphi. @Mas Kofa sudah membuatnya lebih "Delphi".
Mungkin ada yang tanya, "Tapi kan masih juga menjalankannya lewat Batch File"?
Kesempatan ini saya coba menulis beberapa baris singkat tentang "Menyembunyikan file dalam gambar dgn delphi" yang benar-benar Delphi:

Langsung saja ke kodenya:


procedure HideInPic(const hostFile, FileToHide: String);
var
f1, f2: HFile;
p:Pointer;
sz:Integer;
begin
//Buka file target penyembunyian (host) dan ile yang akan disembunyikan
f1:=FileOpen(hostFile, fmOPenReadWrite);
if f1=INVALID_HANDLE_VALUE then
Exit;
f2:=FileOPen(fileToHide, fmRead);
if f2 = INVALID_HANDLE_VALUE then
begin
FileClose(f1);
exit;
End;
//Alokasikan memori seukuran file yang akan disembunyikan
sz:=GetFileSize(f2, nil);
Getmem(p, sz);
// baca isi file yang akan disembunyikan ke buffer memori
sz:=FileRead(f2, p^, sz);
fileClose(f2);
//tutup file yang sudah dibaca, lanjut dengan
//menulis buffer memori ke akhir file host

FileSeek(f1, 0, soFromEnd {atau FILE_END});
FileWrite(f1, p^, sz);
//tutup file host dan bebaskan memori yang terpakai
FileClose(f1);
Freemem(p, sz);
end;


Selamat mencoba

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

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com