Nybegynder.

Tags:    delphi

Hey.

Jeg er lige startet på at lære Delphi, men er ikke helt klar over hvilke funktioner, der er muligt at bruge endenu.

En vigtig fuktion, jeg vil komme til at bruge, er at kommunikere med en webside. Så jeg ville høre, om det er muligt at lave et Delphi program, som kan uploade nogle filer fra en bestemt mappe på computeren, til en mapppe på mit webhotel.?

Hvis dette ikke er muligt, hvilket sprog skal jeg så bruge, for at kode det.?



5 svar postet i denne tråd vises herunder
3 indlæg har modtaget i alt 3 karma
Sorter efter stemmer Sorter efter dato
FTP Upload File with Progress Monitoring
Delphi example program to upload a file to an FTP server with progress monitoring

// FTP Upload a file to an FTP server with progress monitoring.
procedure TForm1.Button1Click(Sender: TObject);
var
success: Integer;
localFilename: WideString;
remoteFilename: WideString;

begin
// Import the Chilkat FTP-2 ActiveX control into Delphi and then
// drop an instance of the FTP control onto the form.

// Unlock once at the beginning of your program.
ChilkatFtp21.UnlockComponent('anything for 30-day trial');

ChilkatFtp21.Hostname := 'ftp.chilkatsoft.com';
ChilkatFtp21.Username := '***';
ChilkatFtp21.Password := '***';

// Connect to the server
success := ChilkatFtp21.Connect();
if (success = 1) then
begin
localFilename := 'test.txt';
remoteFilename := 'test.txt';
success := ChilkatFtp21.PutFile(localFilename,remoteFilename);
if (success = 0) then
begin
ChilkatFtp21.SaveLastError('ftpUploadError.txt');
ShowMessage('Error in upload. See error log');
end
else
ShowMessage('File uploaded!');
end
else
begin
ChilkatFtp21.SaveLastError('ftpConnectError.txt');
if (ChilkatFtp21.ConnectVerified = 1) then
ShowMessage('Login error. Check your username/password')
else
ShowMessage('Cannot connect to FTP server');
end;

end;

// Put (upload) event callback. This method is called each time
// the percentage-completion updates to a higher value.
procedure TForm1.ChilkatFtp21PutProgress(ASender: TObject;
pctDone: Integer);
begin
// pctDone holds an integer value between 1 and 100.
ProgressBar1.Position := pctDone;
end;







Delphi er absolut ikke godt når det omhandler at have kontakt med ens hjemmeside. Både ftp og databasen!

Den kode som både benni og jesper har skrevet benytter et komponent som ikke er inkluderet i delphi. Så det skal du først installerer.

Selv kan jeg sige at jeg har haft problemmer med at få kontakt med min hjemmeside, men jeg har aldrig prøvet det komponent...



Hvordan skal du ha kontant med din server?

Via FTP?
I så fald kan du enten bruge "Indy FTP" komponentet, som følger med Delphi (update evt. til den nyeste udgave fra http://www.indyproject.org/)

Der ligger et eksempel på brugen af FTP komponentet sammen med Indy.

Ellers kan du hente et FTP komponent på http://torry.net/pages.php?id=214



Jeg skal bare have kontakt på den måde, at man kan trykke på en knap, så kommer man ind på hjemmesiden, bliver bedt om at indtaste brugernavn og kode, derefter tjekker den om der er nogle nye filer i en mappe på computeren, og hvis der er det, bliver de uploadet til brugerens mappe på mit webhotel.

Ved ikke om det var til at forstå.?

(Hjemmesiden er kodet i .ASP)



t