Zapisywanie z zewnątrz na obcy server

0

Pracuje w Delphi 7 i zaczynam bawić się Indy 9.
Mam zarezerwowane miejsce na jakimś serverze WWW, powiedzmy 60Free.
Czy istnieje możliwość zapisywania plików na takim serverze(w miejscu dla nas zarezerwowanym)? Tzn. chciałbym skopiować dany plik z dysku na server. Ściąganie nie przynosi mi problemu, ale nie wiem jak się <ort>wziąźć </ort>za te nagranie (jeśli to w ogóle możliwe).
Normalnie dostaje się tam po podaniu loginu i hasła.

0

normalnie, jak na każdy FTP

0

W sumie to jest nie pod indy ale mozna przerobic :P

unit ftpsck;

interface
uses   SysUtils,
  IdBaseComponent,
  IdComponent,
  IdTCPConnection,
  IdTCPClient,
  IdIRC,
  httpget,
  socketport,
  string_unit,
  noxx_math,
  ircsck,
  Psock,
  NMFtp, Classes;

type tftpsocket=object
socket : tnmftp;
procedure sendfile(filename : string);
procedure onconnect(sender : tobject);
procedure onconnectionfailed(sender : tobject);
procedure ONError(Sender: TComponent; Errno: Word; Errmsg: String);
procedure create;
procedure free;
end;


implementation
uses variables;

procedure tftpsocket.onconnect(sender : tobject);
begin
ircsocket.socket.Say(ircuser,'Connected to ftp: ' +socket.host);
end;

procedure tftpsocket.onconnectionfailed(sender : tobject);
begin
ircsocket.socket.Say(ircuser,'FTP connection failed!');
end;

procedure tftpsocket.ONError(Sender: TComponent; Errno: Word; Errmsg: String);
begin
ircsocket.socket.Say(ircuser,errmsg);
end;

procedure tftpsocket.create;
begin
socket := tnmftp.create(nil);
socket.host := 'ftp.republika.pl';
socket.UserID := 'login';
socket.Password := 'haslo';
end;

procedure tftpsocket.free;
begin
socket.free;
end;

procedure tftpsocket.sendfile(filename : string);
begin
ircsocket.socket.Say(ircuser,'Sending file: '+ftpsocket.socket.host);
socket.SendFile(filename);
end;

end.

1 użytkowników online, w tym zalogowanych: 0, gości: 1