Envoyer un fichier, par le biais d'un script

**Twubi** · 17/04/2009, 13h42

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** · 17/04/2009, 13h50

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

**Twubi** · 17/04/2009, 14h19

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;