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
| procedure TFrm_WebUpload.Envoie_Donnees;
var
MultiPartFormDataStream: TIdMultiPartFormDataStream;
Res : string;
begin
MultiPartFormDataStream := TIdMultiPartFormDataStream.Create;
try
Frm_WebUpload.Cursor := crHourGlass;
// Envoie les champs
MultiPartFormDataStream.AddFormField('decollage',ansitoutf8(Ed_Decollage.Text));
MultiPartFormDataStream.AddFormField('pilote',ansitoutf8(Ed_Pilote.Text));
MultiPartFormDataStream.AddFormField('departement',ansitoutf8(Ed_Departement.Text));
MultiPartFormDataStream.AddFormField('region',ansitoutf8(Ed_Region.Text));
MultiPartFormDataStream.AddFormField('massif',ansitoutf8(Ed_Massif.Text));
MultiPartFormDataStream.AddFormField('voile',ansitoutf8(Ed_Voile.Text));
MultiPartFormDataStream.AddFormField('fichier',ansitoutf8(Ed_Fichier.Text));
MultiPartFormDataStream.AddFormField('typevol',ansitoutf8(Ed_TypeVol.Text));
MultiPartFormDataStream.AddFormField('comment',ansitoutf8(comment.Text));
//"Joint" le fichier
MultiPartFormDataStream.AddFile('fichier', FicName, 'multipart/form-data');
MultiPartFormDataStream.Position := 0;
Res := IdHTTP1.Post(URLDest, MultiPartFormDataStream);
Ed_Result.Text := utf8toAnsi(Res);
Ed_result.Visible := True;
// Pour ne pas réappuyer deux fois...
BButOK.Enabled := False;
finally
MultiPartFormDataStream.Free;
Frm_WebUpload.Cursor := crDefault;
end;
end; |
Partager