Hente og gemme fil fra nettet!

Bruge en FTP eller HTTP comp. evt fra INDY pakken

Ved ikke lige om det virker i Delphi3, men prøv nedenstående !

var
  HTTP : TNMHTTP;
begin
  HTTP := TNMHTTP.Create(nil);
  HTTP.Get (\'http://www.domain.dk/fil.txt\');
  Memo1.Clear;
  Memo1.Text := (HTTP.Body);
  HTTP.free;
end;

Snowball

Jeg bruger FTP!...

Så du skal altså hente filen fra en FTP server !?

Snowball

Det forstår jeg ik\' ....jeg har prøvet 3 gange nu!....

Hvis du skal hente filen fra en FTP server, så kan du ikke bruge mit eksempel !

Skal du hente filen fra en FTP server ?

Snowball

JePz!...Filen skal hentes fra en FTP server!

Godt så! Kan du finde et FTP komponent i Delphi !?

Ellers så må du lige prøve og hente og installere INDY/Winshoes fra http://www.nevrona.com/Indy/downloads/winshoes7039b.exe

Bagefter placerer du så et FTP komponent på din from, og skriver følgende kode på f.eks. en knap:

  FTP.Host := \'10.0.0.2\';
  FTP.User := \'username\';
  FTP.Password := \'password\';
  FTP.Port := 21;
  FTP.Connect(True);
  if FTP.Connected then
    try
      FTP.Get(\'fil.txt\',\'fil.txt\');
    except
      Showmessage(\'Der er sket en fejl!\');
    end;
  if Fileexists(\'fil.txt\') then
    Memo1.Lines.LoadFromFile(\'fil.txt\');
  if FTP.Connected then
    FTP.Disconnect;


Husk og tilpas de forskellige ting så det passer til dine forhold !

Snowball

Jeg kan slet ikke få det til at virke?... :-(

Er der et FTP komponent i Delphi 3 !?

Snowball

Nej!

Har du installeret http://www.nevrona.com/Indy/downloads/winshoes7039b.exe ?

Snowball

Oppsss....jeg har ikke fået det installeret endnu!..det må jo være fejlen!..hvad gør det program!..?

Det virker stadig væk ik\' !...

Hvis det bli\'r installeret korrekt så skulle det gi\' dig nogle flere komponenter (bl.a. FTP) !

Snowball

nu når jeg har installeret den! skal jeg så gøre andet?...

Har ikke selv prøvet at installere den (bruger selv Delphi6 og der er INDY med) så jeg ved ikke ret meget om den. Følger der ikke en installationsvejledning med ?

Snowball

Hejsa... Jeg har ikke prøvet denne kode i D3 C/S, men mener at den skulle virke - Koden henter en fil fra nettet og gemmer den på harddisken - via http!


(Uses: WinInet)

procedure TForm1.Button1Click(Sender: TObject);
const
BufferSize = 1024;
var
hSession, hURL : HInternet;
Buffer : Array[0..Pred(BufferSize)] of Byte;
BufferLength : DWORD;
f : File;
fDestFile,
StrUrl : string;
begin
StrUrl := \'http://www.host.com/tekstfil.txt\'; //filen som skal hentes
fDestFile := \'C:\\Dokumenter\\tekstfil.txt\'; // Gem den hentede fil her
hSession :=
InternetOpen(\'Internet\',INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0);
try
hURL := InternetOpenURL(hSession, PChar(StrUrl), nil,0,0,0);
try
AssignFile(f, fDestFile);
Rewrite(f,1);
repeat
InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLength);
BlockWrite(f, Buffer, BufferLength)
until BufferLength = 0;
CloseFile(f);
finally
InternetCloseHandle(hURL);
end
finally
InternetCloseHandle(hSession);
end;
end;

så skulle det være en smal sag at hente den ind i en memo

Det virker ik\' fordi der står nå jeg skal installere INDY pakken: Richedit line insertion error

Med mit eksempel har du ikke brug for INDY... skulle bare lige fastslås ;)

puddelundercover >> Jamen den henter jo kun en fil på nettet, den skulle også gemmes på nettet!

Æukey, det havde jeg ikke lige læst mig til... Så synes jeg at du skal prøve at bruge MonsterFTP... den kan du hente på www.torry.net...

Hvilken version af D3 har du??

puddelundercover  >> Jeg har lige fået Delphi 6 personal

Se, det kunne jo nok godt blive et problem... Jeg er ret sikker på, at du i hvert fald skal op og have Delpfi 6 Pro eller Enterprise for at kunne lege med noget som helst der bare minder om netværk... eller tager jeg fejl?

?????

Jeg mener ikke at nogen personal/standard version har nogle muligheder for at bruge f.eks. ftp-komponenter!

puddelundercover >> Jo med INDY pakken!, men det virker ik\' på min!

... Virker INDY på andre standard versioner?

Hmm..Det ved jeg faktisk ik\' ?

Det burde den ikke - det er jo meningen at man skal købe en større version hvis man skal bruge den slags ;)

Men INDY plejer at virke fint, har du prøvet at hente ver. 9.02 beta

Næææ-