Moze li u delphi-u i kako ?

[Kaludjer_]

Interesuje me moze li u Delphi-u da se napise program cijim ce izvrsenjem sve .txt datoteke iz nekog foldera (neka se folder zove "Prodavnica" ) biti poslate na FTP adresu ?

Znaci u folderu Prodavnica se nalaze neki .txt dokumenti, program treba sve te .txt dokumente da posalje na FTP adresu koja je definisana u samom programu....

 

[mr.maX]

Može. Za FTP komunikaciju ima komponenta u sklopu Indy, Synapse ili ICS besplatnih VCL biblioteka za internet komunikaciju.

 

[Kaludjer_]

Probacu nesto da izvedem.... Ako neko ima ideju kako bi kod trebao da izgleda i ne mrzi ga da postavi, znacilo bi mi.... Hvala u svakom slucaju ....

 

[voodoo_]

Iz nekog programa što sam radio pre sto godina

IdFTP := TIdFTP.Create(FrmUpload);
IdFTP.OnConnected := IdFTPConnected; // funkcija koja se poziva kada se uspešno konektuješ
IdFTP.OnDisconnected := IdFTPDisconnected; // ... kad se diskonektuješ
IdFTP.Host := 'adresa';
IdFTP.Username := 'username';
IdFTP.Password := 'password';
IdFTP.Connect(True);
...
IdFTP.Put(tmppath + s + '.xml', userdir_temp + '.xml');
IdFTP.ChangeDirUp;
IdFTP.Rename(userdir_temp + '.transfer', userdir_temp + '.order');
IdFTP.Disconnect;
IdFTP.Free;

 

[Logen]

mogu da ti postavim svoj ftp client pisan u delphiju pa ga prepravi...

 

[Kaludjer_]

@TheCyA Moze, ako nije problem.... Samo mi je bitna poenta, znaci svi .txt fajlovi iz foldera Prodavnica automatski idu na FTP izvrsenjem programa (ftp client moze biti bilo koji, prepravicu ja na moj user i password ). Znaci izvrsim program i on odradi svoje, bez odabira fajlova za upload na FTP, znaci sve .txt iz foldera Prodavnica automatski idu na FTP.
HVALA jos jednom, nadam se da ste razumeli

@voodoo_ Nisam jos probao tvoje resenje, nisam imao vremena ovih dana ali probacu....

 

[Logen]

Evo ti kod u attachmentu. Mislim da lako mozes to da dodas. Ako ti nesto ne ide javi za pomoc.

 

[Kaludjer_]

Moze li nekako da se izmeni tako da automatski prebaci fajlove na FTP. Znaci da ne kucam client, user i password i bez biranja fajlova, vec da u samom kodu programa napisem user, password, client, i navedem da iz foldera Prodavnica(neka se folder Prodavnica nalazi C:\Documents and Settings\All Users\Desktop) prebaci sve .txt fajlove i cim pokrenem program sam da se konektuje na FTP, prebaci sve .txt fajlove iz foldera Prodavnica bez ikakvog kucanja clienta, biranja fajlova za prebacivanje i ostalo... Dupli click na program i sve odradi sam.... Pokusacu to da odradim, ali ako neko zna kako bi kod trebao da se napise znacilo bi mi.... @TheCyA Odlicno je ovo odradjeno, ali mi treba samo ta "automatizacija" to je problem :/

 

[voodoo_]

A ***, moraš nešto i sam isprogramirati.

Gugl -> delphi list folder content

Uradiš IdFTP.ChDir, zaređaš petlju kroz listu fajlova koju si dobio u prethodnom koraku, u petlji radiš IdFTP.Put za svaki fajl, posle toga Disconnect pa Free i to je to.

 

[Kaludjer_]

Ok, hvala vam na pomoci !