Fórum Problema com upload de multiplos arquivos #470973

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdMultipartFormData, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdHTTP;

type
  TForm1 = class(TForm)
    Button1: TButton;
    IdHTTP1: TIdHTTP;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure Http_arquivos;

var

i: integer;
arquivos: array [0..6] of String;
HTTP: TIdHTTP;
POSTData: TIdMultipartFormDataStream;

begin

arquivos[0]:= 'c:\arquivo0.bmp';
arquivos[1]:= 'c:\arquivo1.html';
arquivos[2]:= 'c:\arquivo2.html';
arquivos[3]:= 'c:\aarquiv3.jpg';
arquivos[4]:= 'c:\arquivo4.wav';
arquivos[5]:= 'c:\arquivo5.bmp';
arquivos[6]:= 'c:\arquivo6.txt';

  HTTP := TIdHTTP.Create(nil);
  POSTData := TIdMultipartFormDataStream.Create;

  for i:= 0 to Length(arquivos) do
    begin

      if fileexists (arquivos[i]) then  begin
      //showmessage(arquivo[i]);

       try
    POSTData.AddFile('userfile[]', arquivos[i], 'multipart/form-data');

    HTTP.Post('http://localhost/ENVIO/up.php', POSTData);

     finally
    POSTData.Free;

    end;
end;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Http_arquivos;
end;

end.

$updir = 'upload';		// Directory for uploads
$max_size = 500;			// Sets maxim size allowed for the uploaded files, in kilobytes

// sets an array with the file types allowed
$allowtype = array('bmp', 'gif', 'htm', 'html', 'jpg', 'jpeg', 'mp3', 'pdf', 'png', 'rar', 'zip', 'txt', 'wav');

// if the folder for upload (defined in $updir) doesn't exist, tries to create it (with CHMOD 0777)
if (!is_dir($updir)) mkdir($updir, 0777);

/** Loading the files on server **/

$result = array();          // Array to store the results and errors

// if receive a valid file from server
if (isset ($_FILES['userfile'])) {
  // checks the files received for upload
  for($f=0; $f<count($_FILES['userfile']['name']); $f++) {
    $fup = $_FILES['userfile']['name'][$f];       // gets the name of the file

    // checks to not be an empty field (the name of the file to have more then 1 character)
    if(strlen($fup)>1) {
      // checks if the file has the extension type allowed
      $type = end(explode('.', strtolower($fup)));
      if (in_array($type, $allowtype)) {
        // checks if the file has the size allowed
        if ($_FILES['userfile']['size'][$f]<=$max_size*1000) {
          // If there are no errors in the copying process
          if ($_FILES['userfile']['error'][$f]==0) {
            // Sets the path and the name for the file to be uploaded
            $thefile = $updir . '/' . $fup;
            // If the file cannot be uploaded, it returns error message
            if (!move_uploaded_file ($_FILES['userfile']['tmp_name'][$f], $thefile)) {
              $result[$f] = ' The file could not be copied, try again';
            }
            else {
              // store the name of the uploaded file
              $result[$f] = '<b>'.$fup.'</b> - OK';
            }
          }
        }
        else { $result[$f] = 'The file <b>'. $fup. '</b> exceeds the maximum allowed size of <i>'. $max_size. 'KB</i>'; }
      }
      else { $result[$f] = 'File type extension <b>.'. $type. '</b> is not allowed'; }
    }
  }

   // Return the result
  $result2 = implode('<br /> ', $result);
  echo '<h4>Files uploaded:</h4> '.$result2;
}