Filoverførsel

FTP står for File Transfer Protocol, og er normalt det man bruger til at overføre filer med, da den er temmelig fiks :o)

Der er en FTP-klient komponent i ICS, men det kræver lidt programmering at bruge den. Men den er helt klart at foretrække frem for Delphi's medfølgende...

Ja det vidste jeg....
Men hvordan bruger man den? Et lille eksempel ville være lækkert :-)

Kan anvendes på 2 måder: Synkron og asynkron. Synkron er langt den nemmeste måde at starte med... Prøv at kigge lidt i det medfølgende eksempel - det er faktisk ret fedt!

Vil du ikke lave lille eksempel?

Det tager vel ca. ½ time at sætte sig ind i?

var
  FtpClient1        : TFtpClient;
begin
  FtpClient1:= TFtpClient.Create(form1);
  FtpClient1.HostName:='localhost';
  FtpClient1.Port:='21';
  FtpClient1.UserName:='anonymous';
  FtpClient1.PassWord:='test@foo.com';
  FtpClient1.Connect;
  sleep(2000);//forbindelse opnået - gør noget med den...
  FtpClient1.Quit;

Eksemplet er med synkron forbindelse - ret nemt at gå til..

Mit problem ligger ikke på client siden men på server siden, når filen skal modtages og lagres på harddisken.

Aha - kunne være ret fedt hvis du havde sagt...

Så skal du jo til at lave en ftp-server. Det er straks værre :o)

Følger der ikke et eksempel med ICS? ELlers kan jeg anbefale at du læser FTP FTC'en...

Men du skal jo til at lave et virtuelt filsystem "/upload, /usr/" og hvad har vi, brugeradministration (login/password/hastighedsbegrænsninger), administratorinterface - jeg kunne blive ved.

Brug hellere en eksisterende ftp-server. Det bliver du gladere for i længden - og der er mange gratis derude..

Det hedder ikke FTC, men RCF...

Der er desværre fejl i eksemplerne med ICS :-) Jeg kan ikke bruge et eksisterende program da mit program egentlig ikke er et normalt FTP-server program.

frifoed - så er spørgsmålet om det ikke ville være smartere at bruge en standard alligevel - med mindre der er en MEGET god grund til ikke at bruge noget eksisterende!

FTP er en gennemprøvet standard og det vil nok være svært at lave noget lige så godt indenfor en overskuelig tidshorisont.

Men lad da høre hvad det skal bruges til, så kan jeg måske komme med et alternativt løsningsforslag.

humm..
Overførsel af et billede over et netværk (dette billede er et screenshot). Jeg havde heller tænkt mig at opfinde en ny filoverførsels protocol.

Hvad er forskellen mellem Synchron og asynchron overførsel?

Hey irj, hvad er problemet med denne produre:

Procedure FtpUpload(var localfile, remotefile : String);
var
  Ftp: TFtp;
begin
  Ftp:= TFtp.Create(form1);
  Ftp.RemoteHost:='www.sygnia.subnet.dk';
  Ftp.RemotePort:=21;
  Ftp.UserId:='sygnia';
  Ftp.Password:='visygnia';
  Ftp.Connect('www.sygnia.subnet.dk', 21);
  Sleep(4000);
  ftp.PutFile(localfile, remotefile);
end;

linjen Ftp.Connect('www.sygnia.subnet.dk', 21) burde da ikke være nødvendig?

Du skal jo bare bruge connect - så forbinder den - ligesom i mit eksempel. Det virkede - så du kan bruge det ret direkte.

Forskellen mellem synkron og asynkron er følgende: i synkron tilstand (ligesom det du har gjort) kalder du bare en kommando efter en anden og ftp-objektet returnerer først når den er færdig og har modtaget svar fra serveren. I asynkron returnerer den derimod med det samme, og så er det det bliver tricky.

Du skal så holde styr på din tilstand - kan fx. være defineret som:

Tstate=(stConnecting,stGettingFile,stDisconnecting) osv...

var
  state: tstate


så gør du så følgende når brugeren vil connecte til en server:

ftp.username... og alle de andre ting du lige sætter op, som ovenfor
state := stConnecting;
ftp.asynConn; (mener jeg den hedder)


så er der en event på ftp-komponenten der hedder OnDataAvailable (vistnok)

her checker du så:

case state of

stConnecting: ftp.login;
stDisconnecting: ftp.disconnect;

end;

eller hvad der nu er passende. Du skal holde tungen lige i munden og sørge for at få defineret dine states fra starten.

Det er i asynkron programmering at du kan lave de hurtigste programmer, men det kræver samtidig også meget mere af dig.

Okay tak..
Jeg eksperimenterer lidt :-)

Det er heller ikke connect-fasen der volder mig problemer, det er den efterfølgende "PutFile" -Kommando.

vær sikker på at du er skiftet til et bibliotek du må uploade på på serveren... pwd-kommandoen, måske også lidt cd-kommandoen :)

Yes nu kan jeg downloade :-)
Min primære fejl var at jeg ikke har brugt ICS men Delphi's inbyggede FTP-komponent og den fungerer ad helvede til!
Yes nu virker upload også :-)
Du er sgu en god hjælp!

Hehe, anytime :o)