Discussion :

[Twubi]

J'aurais besoin d'un petit coup de main de votre part
En fait je souhaiterai envoyer un fichier par un script, c'est à dire :
j'ai un TJpegImage et je souhaiterai l'envoyer par mon script :
http://monSite.com/monScript.php?idI...=MONTJPEGIMAGE

Il faudrait convertir mon JpegImage en quoi pour pouvoir faire ça?

Je sais déjà appeler un script simple, qui me retourne quelque chose grâce a un post de Sub0 que j'ai retrouvé.

Quelqu'un pourrait m'aider?

Merci beaucoup

[Paul TOTH]

tu dois envoyer ton image par un POST, avec l'entête qui va bien et à la suite l'image en binaire...

[Twubi]

Euh, c'est à dire?

Pour le moment je fais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
Function TForm1.GetHTML(AUrl: String): String;
Var
        databuffer: Array[0..4095] Of Char;
        hSession, hfile: hInternet;
        dwindex, dwcodelen, dwread, dwNumber: Cardinal;
        dwcode: Array[1..20] Of Char;
        res: PChar;
Begin
        Result := '';
 
        //AUrl := AUrl+Fichier;
        hSession := InternetOpen('InetURL:/1.0', INTERNET_OPEN_TYPE_PRECONFIG, Nil, Nil, 0);
 
        If (Assigned(hsession)) Then Begin
 
        hfile := InternetOpenUrl(hsession, PChar(AUrl), Nil, 0, INTERNET_FLAG_RELOAD, 0);
        dwIndex := 0;
        dwCodeLen := 10;
        HttpQueryInfo(hfile, HTTP_QUERY_STATUS_CODE, @dwcode, dwcodeLen, dwIndex);
        res := pchar(@dwcode);
        dwNumber := SizeOf(databuffer) - 1;
 
        If ((res = '200') Or (res = '302')) Then
        Begin
                While (InternetReadfile(hfile, @databuffer, dwNumber, DwRead)) Do Begin
                        If (dwRead = 0) Then
                                Break;
                        databuffer[dwread] := #0;
                        Result := Result + PChar(@databuffer);
                End;
        End
        Else
                Result := 'Status:' + res;
 
        If (Assigned(hfile)) Then
                InternetCloseHandle(hfile);
        End;
 
        InternetCloseHandle(hsession);
 
        Fichier.Free;
 
End;

Je comprend pas encore tout ce code
Mais le post marche comment?

Merci beaucoup

[Paul TOTH]

un petit tour sur google ?

[Twubi]

Ben justement ca fait deux heures que je chercher sur google, et je ne trouve rien de clair...

D'ailleurs ton lien est payant...

Je comprend pas ce header...

[Twubi]

Salut,

Quelqu'un pourrait m'expliquer ce qu'il faut mettre dans un header pour envoyer un fichier? svp...

Merci

[randriano]

Pourquoi ne pas analyser d'abord la FAQ Delphi

Est-ce qu'il s'agit d'uploader un fichier vers un serveur web?
Comment soumettre un formulaire de type file, c'est ça le POST dont tout le monde parle

Ou est-ce que c'est du FTP? Si c'est une application que vous êtez entrain d'écrire, utilisez comme protocole de transfert le FTP avec le composant IdFTP

[Twubi]

Oui c'est bien cela que je veux faire, le POST n
Donc c'est bon j'ai installer indy et suivis le tutoriel seulement, j'ouvre bien le fichier je le séléctionne et tout, mais des que je veux l'uploader, sa ne marche pas, la fonction idHTTP1.Post retourne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
<br />
<b>Notice</b>:  Undefined index:  dossier in <b>C:\Program Files\EasyPHP 3.0\www\*****\upload\uploadQuiMarche.php</b> on line <b>2</b><br />
<br />
<b>Notice</b>:  Undefined variable: HTTP_POST_FILES in <b>C:\Program Files\EasyPHP 3.0\www\*****\upload\uploadQuiMarche.php</b> on line <b>11</b><br />
<br />
<b>Notice</b>:  Undefined variable: HTTP_POST_FILES in <b>C:\Program Files\EasyPHP 3.0\www\*****\upload\uploadQuiMarche.php</b> on line <b>12</b><br />
<br />
<b>Notice</b>:  Undefined variable: HTTP_POST_FILES in <b>C:\Program Files\EasyPHP 3.0\www\*****\upload\uploadQuiMarche.php</b> on line <b>13</b><br />
<br />
<b>Notice</b>:  Undefined variable: HTTP_POST_FILES in <b>C:\Program Files\EasyPHP 3.0\www\*****\upload\uploadQuiMarche.php</b> on line <b>14</b><br />
Le fichier spécifié est introuvable ou vide!

C'est bizarre je fais ce qui est indiqué...
Comment faire?

En tout cas, merci de m'aider

[Twubi]

C'est bizarre d'aprés mes test, quand mon script est appellé aucun parametres n'est arrivé, ni dossier, ni userfile, de ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
procedure TForm1.Button1Click(Sender: TObject);
var
  MultiPartFormDataStream: TIdMultiPartFormDataStream;
 
begin
 
  if OpenDialog1.Execute then
  begin
    MultiPartFormDataStream := TIdMultiPartFormDataStream.Create;
    try
      //"Remplis" la variable "dossier" pour spécifier l'upload dans /test
      MultiPartFormDataStream.AddFormField('dossier','/test'); 
      //"Joint" le fichier
      MultiPartFormDataStream.AddFile('userfile', OpenDialog1.FileName, 'multipart/form-data'); 
      MultiPartFormDataStream.Position := 0;
      //Poste !
      IdHTTP1.Post('http://localhost/******/upload/upload.php', MultiPartFormDataStream);
    finally
      MultiPartFormDataStream.Free;
    end;
  end;
 
end;

et mon script est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
<?php 
$dossier=$_POST['dossier']; 
if($dossier<>'') { 
   if(substr($dossier,strlen($dossier)-1,1)=='/')$dossier.='/'; 
   $dir=@explode('/',$dossier); $dossier=''; 
   for($x=0;$x<count($dir);$x++) { 
      $dossier.=$dir[$x].'/'; 
      if(! @is_dir($dossier))@mkdir($dossier,0777); } 
   if(! @is_dir($dossier))die("Le dossier est invalide! (".$dossier.")"); } 
 
$filenameHTTP=$HTTP_POST_FILES['userfile']['name']; 
$typeHTTP=$HTTP_POST_FILES['userfile']['type']; 
$sizeHTTP=$HTTP_POST_FILES['userfile']['size']; 
$tmpfileHTTP=$HTTP_POST_FILES['userfile']['tmp_name']; 
if((empty($filenameHTTP))or($sizeHTTP<=0)) 
   die("Le fichier spécifié est introuvable ou vide!"); 
 
if(@is_uploaded_file($tmpfileHTTP)) { 
   if(@eregi('.php',$filenameHTTP))$filenameHTTP.='.txt'; 
   if(filesize($tmpfileHTTP)<>$sizeHTTP) 
      die("Erreur de téléchargement du fichier!"); 
   if(@move_uploaded_file($tmpfileHTTP,$dossier.$filenameHTTP)) { 
      @chmod($filenameHTTP,0777); 
      echo "Fichier correctement uploadé!<br>". 
      $dossier.$filenameHTTP." (".round($sizeHTTP/1024)." ko)<br>"; 
   } else die("Une erreur est survenue lors du téléchargement!"); 
} else die("Erreur de téléchargement du fichier!"); 
?>

J'ai juste fais un copié coller de ce tuto : http://delphi.developpez.com/faq/?pa...formulairefile

C'est normal???

Merci de votre aide

[Twubi]

En fait je pense que je ne contrôle pas bien l'envoi des paramètres...
C'est a dire qu'aucun paramètre n'est envoyé quand j'appelle mon upload.php...
Je fais quelque chose mal la :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
var
  MultiPartFormDataStream: TIdMultiPartFormDataStream;
 
begin
 
  if OpenDialog1.Execute then
  begin
    MultiPartFormDataStream := TIdMultiPartFormDataStream.Create;
    try
      //"Remplis" la variable "dossier" pour spécifier l'upload dans /test
      MultiPartFormDataStream.AddFormField('dossier','/test'); 
      //"Joint" le fichier
      MultiPartFormDataStream.AddFile('userfile', OpenDialog1.FileName, 'multipart/form-data'); 
      MultiPartFormDataStream.Position := 0;
      //Poste !
      IdHTTP1.Post('http://localhost/******/upload/upload.php', MultiPartFormDataStream);
    finally
      MultiPartFormDataStream.Free;
    end;
  end;

Pourquoi je n'envoi rien avec ca??

Un peu d'aide svp?