HTTP-Server (indy) Dateien hochladen (empfangen) ? wie ?

**The-X**

Das hab ich gestern Abend auch mal probiert im Zusammenhang mit TIdMessage & TIdAttachment
(übernommen aus einem Pop3-Beispiel für Dateienhänge die theoretisch ganz genau so gespeichert werden)
nur ist die Anzahl der Attachments 0 weil da scheinbar keine "unkodierten" also binary Attachments mit verarbeitet werden können

aber es muss doch irgendwie möglich sein die Dateien ordentlich getrennt und mit ihrem original-Dateinamen aus dem Stream zu lösen...
hatte gestern Abend bald nen Nervenzusammenbruch weil ich den Stream nicht so bearbeiten konnte wie ich es gerne gehabt hätte

(von "Invalid Typecast" zur Runtime bis zur AV hatte ich alles dabei)

**The-X**

hab mittlerweile den Stream ganz fies "von Hand" geparst ... funktioniert bisher nur für eine Datei, aber mehr wollt ich ja auch nicht

... so und nun Türe ZU

**DarthDestroyer**

Zitat von The-X:

zusammenfalten · markieren

Delphi-Quellcode:

			unit Push_main;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, IdBaseComponent, IdComponent, IdTCPServer, IdCustomHTTPServer,

  IdHTTPServer, StdCtrls, ToolBox;

type

  TForm1 = class(TForm)

    Server: TIdHTTPServer;

    Active: TCheckBox;

    Port: TEdit;

    procedure ServerCommandGet(AThread: TIdPeerThread;

      ARequestInfo: TIdHTTPRequestInfo;

      AResponseInfo: TIdHTTPResponseInfo);

    procedure ServerCreatePostStream(ASender: TIdPeerThread;

      var VPostStream: TStream);

    procedure FormCreate(Sender: TObject);

    procedure ActiveClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

uses IdHTTPHeaderInfo;

{$R *.dfm}

//function fib(n:Integer):Integer; begin if (n <= 2) then result:=1 else result:=fib(n-1) + fib(n-2); end;

function HtmlForm:string;

begin

Result:=

  '<html><head><title>Upload</title></head><body>'+

  '<center><h1>File Upload</h1><hr>'+

  '<form action="/upload/" method=post enctype="multipart/form-data">'+

  '<input type=file name=file><input type=submit value=Upload></form>'+

  '</center></body></html>';

end;

function HTMLMessage(msg:String):string;

begin

Result:=

  '<html><head><title>Upload</title></head><body>'+

  '<center><h1>File Upload</h1><hr>'+msg+'<hr>'+

  '<a href=/>Click here to continue</a></center></body></html>';

end;

procedure TForm1.ServerCommandGet(AThread: TIdPeerThread;

  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);

Var TheFile:TMemoryStream;

    FN:String;

begin

  If ARequestInfo.Document='/' Then begin

    With AResponseInfo do begin

      ContentText:=HtmlForm;

      WriteContent;

    end;

  end else if ARequestInfo.Document='/upload/' then begin

    TheFile:=TMemoryStream.Create;

    try

      try

        TheFile.LoadFromStream(ARequestInfo.PostStream);

        TheFile.SaveToFile('.\'+DateToStr(now)+' '+TimeToStr(now)+' '+ARequestInfo.RemoteIP+' '+FN);

        With AResponseInfo do begin

          ContentText:=HtmlMessage('Upload Successful!');

          WriteContent;

        end;

      except

        With AResponseInfo do begin

          ContentText:=HTMLMessage('Upload Error!');

          WriteContent;

        end;

      end;

    finally

      TheFile.Free;

    end;

  end;

end;

procedure TForm1.ServerCreatePostStream(ASender: TIdPeerThread;

  var VPostStream: TStream);

begin

VPostStream:=TMemoryStream.Create;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

LongTimeFormat:='hhmmss';

ShortDateFormat:='yyMMdd';

end;

procedure TForm1.ActiveClick(Sender: TObject);

begin

  Try

    If Active.Checked then begin

      Server.DefaultPort:=StrTointDef(Port.Text,80);

    end;

    Server.Active:=Active.Checked;

  Finally

    Active.Checked:=Server.Active;

  end;

end;

end.

So sieht das ganze mittlerweile aus und funktioniert immernoch nicht so wie ich es gerne hätte...
Am Anfang der Datei und am Ende stehen noch Daten die ich nicht mit drin haben möchte

markieren

Code:

			-----------------------------7d4389342702ec

Content-Disposition: form-data; name="file"; filename="F:\Downloads\Coding\delphi\GenPw.pas"

Content-Type: application/octet-stream

function RandPW(iPWLen: Integer; bSpecial: Boolean): String; 

var 

  sPW: string; 

begin 

  Randomize; 

  sPW := 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ'; 

  if bSpecial then 

  begin 

    sPW := sPW + '1234567890!"§$%&/()=?~+,.-{}[]²³\|*'; 

  end; 

  Result := ''; 

  repeat 

    Result := Result + sPW[Random(Length(sPW)) + 1]; 

  until 

    (Length(Result) = iPWLen); 

end;

-----------------------------7d4389342702ec--

...
die ersten 4 Zeilen und die Letzte Zeile gehören da nicht mit rein ... und diese einfach zu löschen kann auch nicht die Lösung sein, das ich u.a. ja auch Binärdateien verarbeiten will

also was tun ?

PLZ Help

Jetzt meine Problem an deinem Code!
Woher nimmt FN denn den Filename?

HTTP-Server (indy) Dateien hochladen (empfangen) ? wie ?

Re: HTTP-Server (indy) Dateien hochladen (empfangen) ? wie ?

Re: HTTP-Server (indy) Dateien hochladen (empfangen) ? wie ?

Re: HTTP-Server (indy) Dateien hochladen (empfangen) ? wie ?

Forumregeln