Arsip: FTP download

more 14 years ago
belajaraja
Salam,
Sebelumnya saya mau ngucapin MINAL AIDZIN WAL FAIDZIN, MOHON MAAF LAHIR DAN BATIN.
Saya ada masalah neh, temen* tolong bantu yah :
1. Gimana caranya program saya bisa download automatis dari FTP file dan saya letakkan di folder ? Pake cara apa yah ?
2. Gimana caranya agar ketika tanggal berubah, maka tanggal di prgram saya juga berubah secara otomatis. program ini saya install di server, jadi ngga pernah dimatikan.
Saya mohon banget yah di bantuin.
Terima kasih sebelumnya

more 14 years ago
cikumiyu
Menjawab pertanyaan yang ke:
1. Kalau mau mendownload melalui protokol ftp, coba pakai komponen ftp milik indy components. Sudah built-in sejak delphi 6. Masalah otomatis ya tinggal digunakan pada saat event yang mau dibuat otomatis. Misalnya pada saat pertama kali program dijalankan, atau pada setiap jam 13:00, dsb. Definisi otomatis ya tergantung dar definisi kamu sendiri.
2. Ini maksudnya kurang jelas. Coba lebih diperjelas lagi. Tanggal yang dimana yang berubah dan untu kkeperluan apa. :)

more 14 years ago
belajaraja
Makasih mas,
1. Saya belum pernah pake component nya Indy, bisa tolong di perjelas ngga mas atau kl mas punya bisa tolong berikan contoh programnya ? saya sangat membutuhkan program itu. Saya bukan ngga mau mencoba, tapi karena saya belum pernah coba pake Indy saya takut memakan waktu agak lama.
2. Misalkan gini :
Hari ini tanggal 2007-10-17, di aplikasi server, edit box nya akan menunjukkan tanggal tersebut. Ketika besok, edit box tersebut akan berubah tanggal nya otomatis menjadi 2007-10-18, jadi saya bisa mendownload file dari FTP untuk tanggal tersebut.
Semoga itu bisa lebih jelas. Saya mohon sekali bantuannya.
Terima kasih

more 14 years ago
mas_kofa
jawab no 2 :
bisa peke timer .......
procedure TForm1.Timer1Timer(Sender: TObject);
var j, m, d, p,t : word;
begin
decodetime(time,j,m,d,p);
t := j + m + d;
if t = 0 then // jam 00:00:00 atau pergantian hari
begin
edit2.Text := datetostr(date);
//////.............proses yg diinginkan
//////////////////////////
end;
end;
maaf jika kurang membantu..........
more 14 years ago
nurez
tinggal ambil jam dari sistem di server ajha.. tp codingnya di event on timer, trs edit2.Text := datetostr(date);
bisa koq.. dan intervalnya 500 di Ttimer

more 14 years ago
danieljun
uses /// - ...
IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdExplicitTLSClientServerBase, IdFTP, IdFTPListTypes, IdFTPList,
IdFTPListParseBase, IdObjs, IdException, IdAntiFreezeBase, IdAntiFreeze,
IdAllFtpListParsers,
DateUtils /// - ...
/// .... *
IdFtp1.Host := '127.0.0.1';
IdFtp1.Username := 'root';
IdFtp1.Password := 'ofallevil';
IdFtp1.ChangeDir('/theloveofmoney/');
l := TStringList.Create;
IdFtp1.List(l, '. ', True);
for i := 0 to IdFtp1.DirectoryListing.Count - 1 do
begin
TglFtp := idFtp1.FileDate( IdFtp1.DirectoryListing[i].FileName,False );
TimpaFileLama := True;
LanjutSebelumnya := False;
if DayBetween(TglFtp, Now) < 1 then
IdFtp1.Get(IdFtp1.DirectoryListing[i].FileName, 'NameFiletujuan', TimpaFileLama, LanjutSebelumnya );
end;
FIdFTP.Disconnect;

more 14 years ago
cikumiyu
1. Saya belum pernah pake component nya Indy, bisa tolong di perjelas ngga mas atau kl mas punya bisa tolong berikan contoh programnya ? saya sangat membutuhkan program itu. Saya bukan ngga mau mencoba, tapi karena saya belum pernah coba pake Indy saya takut memakan waktu agak lama.Akan lebih lama jadinya kalo kamu sendiri ngga mencoba. Tuh, yang dicontohkan @danieljun sepertinya sudah seperti yang kamu maksud. Tinggal waktuekeskusinya saja yang dibuat seperti yang kamu mau. :)

more 14 years ago
belajaraja
Salam
Akan lebih lama jadinya kalo kamu sendiri ngga mencoba. Tuh, yang dicontohkan @danieljun sepertinya sudah seperti yang kamu maksud. Tinggal waktuekeskusinya saja yang dibuat seperti yang kamu mau.Iya mas, saya sudah coba dan masih memodifikasi nya. Terima kasih banyak atas bantuannya.

more 14 years ago
belajaraja
Salam,
Saya sudah coba, tapi kok program di atas ngga bisa jalan yah ?? maaf saya baru sempet mencoba nya kemaren, buat temen yang lain ada yang bisa bantuin ngga ? tolong banget donk...really urgent please........
Terima kasih sebelum nya

more 14 years ago
danieljun
Program yang mana ya?
pakai Indy 10 untuk compile setelah memasukkan potongan source diatas kedalam 1 unit untuk testing.
perhatikan klausa uses ditambahkan ke komponen uses dalam form test
lalu source dibawahnya dimasukkan aja ke event Button.Click
more ...
reply |
Report Obsolete
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 1 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 2 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 9 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 9 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 9 years ago
Random Topic
- Hide database di MS SQL
by EkoIndri in MsSQL more 16 years ago - Tanya tentang pencarian keterangan denda
by erwinkiting in Hal umum tentang Pascal Indonesia more 16 years ago - Minta Tolong Koneksi Delphi dengan Interface PPI8255
by yodevil_house in Network, Files, I/O & System more 17 years ago - tregistry
by brodien in Enginering more 16 years ago - Bagi warisan ??????
by C-Agent in Bedah Kasus more 14 years ago - deteksi removeable disk (flashdisk)
by asiyrob in Tip n Trik Pemrograman more 15 years ago - query
by muktaf in MySQL more 14 years ago - Bikin Kamus IT pake delphi ?
by hydenisama in Tip n Trik Pemrograman more 14 years ago - TQuery yg bisa Cacheupdate..
by wati in Tip n Trik Pemrograman more 10 years ago - Firebird di sebuah network
by wati in FireBird more 9 years ago