Delphi-PRAXiS
Seite 1 von 2  1 2      
40 Beiträge dieses Themas auf einer Seite anzeigen

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Delphi HTTP-Server (indy) Dateien hochladen (empfangen) ? wie ? (https://www.delphipraxis.net/34954-http-server-indy-dateien-hochladen-empfangen-wie.html)

The-X 30. Nov 2004 16:58
HTTP-Server (indy) Dateien hochladen (empfangen) ? wie ?
 
Hi Folks :)

Ich möchte mir ein Programm basteln, welches als HTTP-Server funktioniert bei dem man nur Dateien Hochladen kann (über ein Formular)

das müsste ja dann über HTTP-Post geschehen, doch irgendwie komm ich mit dem onCommandOther nicht wirklich zurecht...
ich weiss z.B. nicht wie ich die Daten eindeutig zuweisen soll (falls mehrere leute gleichzeitig hochladen)

ich hab schon hier im Forum gesucht, aber da steht nur die umgekehrte Richtung (per Indy-Http-Client Dateien hochladen)
und Google lieferte mir auch nichts brauchbares

würde mich freuen wenn mir da jemand einen Tipp geben könnte, oder ein Beispiel :)

:((

Vielen Dank schonmal im Vorraus

SubData 30. Nov 2004 17:07
Re: HTTP-Server (indy) Dateien hochladen ? wie ?
 
Also ich programmier gerade an nem Indy HTTP Server und der empfängt die POST Befehle auch über onCommandGet

The-X 30. Nov 2004 17:43
Re: HTTP-Server (indy) Dateien hochladen ? wie ?
 
:roll: :shock: :gruebel: warum gibt es dann OnCommandOther wenn dann POST doch über onCommandGet grtrigert wird :?:

:wiejetzt: also irgendwie kann ich mir das nicht wirklich vorstellen :roll:

The-X 30. Nov 2004 19:34
Re: HTTP-Server (indy) Dateien hochladen ? wie ?
 
Delphi-Quellcode:
unit Push_main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPServer, IdCustomHTTPServer,
  IdHTTPServer, StdCtrls, Contnrs;

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

{$R *.dfm}

function HtmlForm(msg:String=''):string;
var T:String;
begin
T:='<html><body><h1>File Upload</h1><hr>';
If not(msg='') then T:=t+msg+'<hr>';
T:=t+'<form action="/upload/" method=post enctype="multipart/form-data"><input type=file name=file><input type=submit value=Upload></form></body></html>';
Result:=t;
end;

procedure TForm1.ServerCommandGet(AThread: TIdPeerThread;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
Var PostedFile:TMemoryStream;
begin

  If ARequestInfo.Document='/' Then begin
    With AResponseInfo do begin
      ContentText:=HtmlForm;
      WriteContent;
    end;
  end else if ARequestInfo.Document='/upload/' then begin
    PostedFile:=TMemoryStream.Create;
    Try
      Try
        PostedFile.LoadFromStream(ARequestInfo.PostStream);
        PostedFile.SaveToFile('.\'+(DateToStr(now)+' '+TimeToStr(now)+' '+AThread.Connection.Socket.Binding.PeerIP));
        With AResponseInfo do begin
          ContentText:=HtmlForm('Upload Successful!');
          WriteContent;
        end;
      except
        With AResponseInfo do begin
          ContentText:=HTMLForm('Upload Error!');
          WriteContent;
        end;
      end;
    finally
      PostedFile.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.
ich hab dann eben durch Zufall :mrgreen: ARequestInfo.PostStream entdeckt...
und der Code ansich läuft auch ohne Mucken/Av's/o.ä. ...

Aber leider steht in der Datei nicht das gewünschte Ergebnis :(
sondern nur der der lokale Dateiname vom Uploader
den ich aber ja nicht in der Datei haben möchte :wall:

Hiiiilllffeeeee :mrgreen:
Danke im Vorraus

The-X 1. Dez 2004 22:37
Re: HTTP-Server (indy) Dateien hochladen (empfangen) ? wie ?
 
*** vorsichtig PUSH ***

hat das noch niemand hier gemacht ? :roll: :gruebel: :roll:

The-X 3. Dez 2004 21:37
Re: HTTP-Server (indy) Dateien hochladen (empfangen) ? wie ?
 
:duck: [PUSH] :duck: :gruebel: :cry:

The-X 4. Dez 2004 21:41
Re: HTTP-Server (indy) Dateien hochladen (empfangen) ? wie ?
 
kann :( /will :| / oder darf :shock: mir keiner dabei helfen ? :gruebel: :wall:

*nochmal nach oben PUSH und dort fest tackert*

(fast genau 24h :mrgreen:)

The-X 13. Dez 2004 23:11
Re: HTTP-Server (indy) Dateien hochladen (empfangen) ? wie ?
 
:cry: :cry: :cry: kann doch nich möglich sein, dass das niemand hier weiss :roll: oder etwa doch ? :( *und wieder und immer wieder PUSH*

The-X 22. Dez 2004 00:32
Re: HTTP-Server (indy) Dateien hochladen (empfangen) ? wie ?
 
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

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

SirThornberry 22. Dez 2004 07:58
Re: HTTP-Server (indy) Dateien hochladen (empfangen) ? wie ?
 
die zeilen die dir nicht gefallen gehören dazu, an hand derer weißt du wo der eine Teil anfängt und aufhört (man kann ja auch mehreres gleichzeitig posten).


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:56 Uhr.
Seite 1 von 2  1 2      
40 Beiträge dieses Themas auf einer Seite anzeigen

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz