Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Upload fajla pomocu delphi aplikacije

[es] :: Pascal / Delphi / Kylix :: Upload fajla pomocu delphi aplikacije

[ Pregleda: 1784 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

4co_R

Član broj: 268314
Poruke: 74
*.static.isp.telekom.rs.



+2 Profil

icon Upload fajla pomocu delphi aplikacije14.11.2010. u 13:32 - pre 162 meseci
Pozdrav...
Nikako mi ne polazi za rukom da napravim program kojim bi izvrsio upload odredjenog fajla na www.megaupload.com ili neki slican sajt.Koristio sam i google ali nista znacajnije nisam uradio.
Da li imate neku ideju kako to da uradim?
Gde mogu da nadjem neki tutorial,source code?
Hvala
 
Odgovor na temu

4co_R

Član broj: 268314
Poruke: 74
*.static.isp.telekom.rs.



+2 Profil

icon Re: Upload fajla pomocu delphi aplikacije16.11.2010. u 00:48 - pre 162 meseci
Nasao sam resenje.

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
ftp: TChilkatFtp2;
success: Integer;
localFilename: String;
remoteFilename: String;

begin
ftp := TChilkatFtp2.Create(Self);

//  Any string unlocks the component for the 1st 30-days.
success := ftp.UnlockComponent('Anything for 30-day trial');
if (success <> 1) then
  begin
    ShowMessage(ftp.LastErrorText);

  end;
ftp.Hostname := 'hostname';
ftp.Username := 'YourUsername';
ftp.Password := 'YourPassword';
ftp.Passive := 1;
success := ftp.Connect();
if (success <> 1) then
  begin
    ShowMessage(ftp.LastErrorText);
  end;
success := ftp.ChangeRemoteDir('YourDir');
if (success <> 1) then
  begin
    ShowMessage(ftp.LastErrorText);
  end;
localFilename := 'FileForUpload';
remoteFilename := 'FileName';
success := ftp.PutFile(localFilename,remoteFilename);
if (success <> 1) then
  begin
    ShowMessage(ftp.LastErrorText);
  end;
ftp.Disconnect();
ShowMessage('File Uploaded!');
end;



 
Odgovor na temu

salaczr

Član broj: 160654
Poruke: 103
*.dynamic.isp.telekom.rs.



+5 Profil

icon Re: Upload fajla pomocu delphi aplikacije16.11.2010. u 07:47 - pre 162 meseci
Evo wrapper-a za TIdFTP

http://www.koders.com/delphi/f...AA61810A93A01377.aspx?s=ftp#L2

pozdrav
 
Odgovor na temu

4co_R

Član broj: 268314
Poruke: 74
*.static.isp.telekom.rs.



+2 Profil

icon Re: Upload fajla pomocu delphi aplikacije16.11.2010. u 10:22 - pre 162 meseci
Hvala na pomoci.
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Upload fajla pomocu delphi aplikacije

[ Pregleda: 1784 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.