save file dalam network

-
No 1. Bisa menggunakan fungsi yang udah ada di SysUtils

function ExtractFileName(const FileName: string): string;


No 2. Salah satunya bisa dengan cara ini (perlu dikembangakan untuk meng copy *.exe) :

procedure TForm.CopyFile(AFileName: string);
var
hnd : THandle;
sTarget: string;
begin
sTarget := '\192.168.0.1\sharedfolder\' + AFileName;
screen.Cursor := crHourGlass;
if not CopyFile(PansiChar(AFileName), PansiChar(sTarget), False) then
begin
MessageDlg('Gagal meng-copy file :' + AFileName, mtError, [mbOK], 0);
Exit;
end;
Screen.Cursor := crDefault;
end;

Comments

Post a Comment

Popular posts from this blog

Shortest Path Finder dengan Djikstra’s Algorithm

-
Image
Shortest path finder adalah metoda berupa algoritma yang digunakan untuk mencari rute terdekat. Ada banyak algoritma yang bisa digunakan. Dua algoritma yang paling poluler adalah Djikstra dan A* (baca: A star). Walaupun sama-sama bisa digunakan untuk mencari rute terdekat, namun keduanya memiliki prinsip yang berbeda. Hal itu menyebabkan keduanya digunakan pada jenis kasus yang bebeda pula. Bahasan kali ini akan difokuskan pada algoritma djikstra. A* insya allah akan dibahas pada tulisan yang akan datang. Algoritma djikstra diperkenalkan pertama kali oleh Edsger Dijkstra, seorang ilmuan komputer berkebangsaan Belanda pada tahun 1959. Algoritma ini menjadi tulang punggung dari link-state routing. Link-state routing adalah satu dari dua kelas utama dari routing protocol yang digunakan pada packet switching networks dalam dunia komunikasi komputer (computer communications). Agar bisa menentukan rute terdekat, djikstra memerlukan informasi berupa sebuah routing table. Routing table ini...
Read more

Mengenal dan Menggunakan Komponent MaskEdit pada Delphi

-
Image
Berada di dalam tab additional pada component palette, digunakan untuk memasukkan dan menyunting data, mempunyai kesamaan dengan komponen edit. Kelebihannya adalah menyediakan suatu format khusus untuk data input yang akan digunakan. Kode format berfungsi untuk membatasi teks yang dapat diinputkan oleh pemakai, dengan kata lain digunakan untuk mengontrol validasi data yang dimasukkan pemakai. Untuk memulai penggunaan maskedit dengan cara klik kanan pada objek maskedit, akan muncul kotak dialog input mask editor. Penjelasan kotak dialog input mask editor : input mask, digunakan untuk mendefinisikan kode format (mask) untuk kotak edit. Penulisan mask terbagi dalam tiga bagian field yang dipisahkan oleh karakter titik koma, yaitu : field pertama adalah mask, dapat dipilih pada kotak sample masks atau membuatnya sendiri. Field kedua adalah karakter yang menyatakan apakah karakter literal (karakter lain) pada mask akan disimpan dalam data. Field ke...
Read more

Membuat object Runtime pada Delphi

-
Berikut adalah code untuk membuat sebuah object pada borland delphi ketika runtime dikondisikan seperti berikut : 1. buatlah satu aplikasi baru dimana terdapat satu form sebut saja form1 2. buatlah satu button yang diletakan diatas form1 dengan nama button1 3. kemudian untuk contoh kita akan membuat tombol baru lengkap dengan event didalamnya 4. sebelumnya kita buat terlebih dahulu procedure untuk mengisi event dari object yang akan kita buat seperti berikut ini. procedure TForm1.ClickShowMessage(Sender: TObject); begin ShowMessage('Hello World !'); end; 5. ketikan coding berikut pada event onclick dari button1 procedure TForm1.Button1Click(Sender: TObject); var button: TButton; begin button := TButton.Create(Self); with button do begin Top := Button1.Top; Width := Button1.Width; Left := Button1.Left+Width; Caption := 'Button '+ IntToStr(Self.ControlCount+1); Parent := Self; OnClick := ClickShowMessage; //memanggil proce...
Read more