Upload via ren Delphi (5E)

Det er ikke helt så let, nej. Du skal jo forbinde til en ftp-server, ikke en http-server.
Jeg foreslår indy:
www.nevrona.com/indy

jeg har set mange hint's der anbefaler indy, men da jeg ikke er særlig glad for at tilføje komponenter til min D-pakke og jeg iøvrigt ikke har fået den opdateret via Borland, så foretækker jeg de eksisterende komponenter ....

hvis det tilsyneladende er mere kompliceret at lave uploading - kan der så henvises til nogle standard-komponenter, der skal indgå i en basal upload-løsning evt. links ditto...

det jeg allerhelst ville have løsningsforslag til, er, at jeg via mit Delphi-program løbende kunne opdatere en access97-database på mit web-hotel i et flerbruger-miljø - men så ta'r jeg måske "munden for fuld" ? ! ?

jeg uddeler naturligvis gerne flere point's, hvis det er det der skal til ...

måske findes der et demo-projekt med source-kode ?
som jeg kan afprøve og selv udbygge ?

Masser af demoprojekter, ja det findes der skam.
Men de fleste bruger komponenter.

Du er vel klar over at Indy ovenikøbet udsendes sammen med Delphi 6 ? Den er altså verificeret af Borland

Og så tilføjes den jo ikke til din D-pakke, eller hvad du nu kalder det. Den kommer jo med sin egen pakke (package)

jeg kan "høre" at "løsningen" ligger i Delphi 6, som jeg endnu ikke har anskaffet og vil nok afvente Dephi 7... hvis jeg opgraderer...

D-pakke er min oprindelige D5E-installation, jeg henviser til...

jeg fornemmer, at jeg (endnu engang) render ind i en "lukket vej" / tomrum, hvor jeg fortsat står med et "gabende hul" - et uløst problem / behov...

Jeg forstår dig ikke. Hvad er problemet med at installere en pakke som Indy, som er opensource og bruges af tusindvis af programmører verden over?

Den er noget af det mest brugervenlige jeg nogensinde er stødt på til Delphi. Der er som regel en grund til at mange henviser til samme komponent

Hvis jeg var dig, og du ikke har ftp adgang, ville jeg satse på noget asp/php/cgi eller bare et eller andet server side sprog som kan afhandle form post. Så kan du evt bruge httpget til at post i en form som så uploader en fil via http. Du kan enda gøre dette med delphis twebbrowser.

cms >>
jeg forstår godt dit argument !
og det kan da også godt være, at jeg må "gi' mig", men mit første problem er at få opdateret min D5E version via Borland og det anta'r jeg, at jeg ikke kan gøre på min net-maskine UDEN D5E ! ?

dkn >>
jeg ville gerne have integreret funktionaliteten i en større D%-applikation, "skjult" for brugerne -
kan man det ved at anvende Deplhi's WEB-browser eksempel ? Altså noget med at kombinere D5-browser(skjult) og noget aspkode ... d.v.s. at jeg via nævnte browser sender opdateringsdata ind i en form-side til når asp, der opdaterer server databasen og en anden browser-side der downloader databasen ...
det kan godt være at det er noget "grise-kode", men vil / kan det virke på den måde ?

somsagt behøvs det ikke være en browser selv bruger jeg ren kode til det, det virker ret godt. Kan lige finde det frem til dig...

Brug FTP komponent der hedder NMFTP om som er standard i Delphi.
Her er et eksempel:

Download kode:
NMFTP1.Connect;
NMFTP1.ChangeDir('DitDownloaddir');
NMFTP1.Download('DATABASE.mdb','DATABASE.mdb');
NMFTP1.Disconnect;

Upload kode:
NMFTP1.Connect;
NMFTP1.ChangeDir('DitDownloaddir');
NMFTP1.Upload('DATABASE.mdb','DATABASE.mdb');
NMFTP1.Disconnect;

Husk at sætte de forskellige params med hensyn til
Bruger og password.

Håber du kan bruge det.

ej trode det var ren kode men den bruger også webbrowseren, men det gør nu ingenting.

Sådan her virker det:


function HTTPEncode(const AStr: string): string;
const
  NoConversion = ['A'..'Z', 'a'..'z', '*', '@', '.', '_', '-'];
var
  Sp, Rp: PChar;
begin
  SetLength(Result, Length(AStr) * 3);
  Sp := PChar(AStr);
  Rp := PChar(Result);
  while Sp^ <> #0 do
  begin
    if Sp^ in NoConversion then
      Rp^ := Sp^
    else if Sp^ = ' ' then
      Rp^ := '+'
    else
    begin
      FormatBuf(Rp^, 3, '%%%.2x', 6, [Ord(Sp^)]);
      Inc(Rp, 2);
    end;
    Inc(Rp);
    Inc(Sp);
  end;
  SetLength(Result, Rp - PChar(Result));
end;



var
  i: Integer;
  EncodedStr: string;
  Header: OleVariant;
  Post: OleVariant;
begin
  //Forms som skal udfyldes
  EncodedStr := 'Filename=' + HTTPEncode('C:\Fil.txt');

  Post := VarArrayCreate([0, Length(EncodedStr) - 1], varByte);
  for I := 1 to Length(EncodedStr) do
    Post[I - 1] := Ord(EncodedStr[I]);
  Header := 'Content-Type: application/x-www-form-urlencoded' + #10#13;

  WebBrowser1.Navigate('www.dinserver.dk/post.asp', EmptyParam, EmptyParam, Post, Header);
end;

Det eneste som mangler er noget error checking altså om det blev uploaded fint. Jeg brugte hvis nok OnTitleChange event i webbrowseren, så du kan bare lave så dit server script fx sætter title til "Succes" så kan du se det i OnTitleChange.

dkn

Indy pakken er da med i Delphi 5. Endda i demoversionerne.

formatc >>
har gennemset mine CD'ere til D5E inkl. "tools for Delphi 5" uden at kunne finde noget der hedder indy....

hedder det da noget andet ?

kayb's kode er jo klart den enkleste. dog har jeg aldrig været glad for nmkomponenterne

indy i delphi 5? hmm... Det tror jeg nu ikke.
Indy hedder også Internet Direct og WinShoes

Hvorfor downloader du den ikke bare? Hvad skulle der være galt :)

Hvis der er tale om en database som skal opdaters, hvorfor bruger du så ikke ADO til at opdatere databasen med. Det eneste som du skal bruge er en IP-adresse til databasen.