Je souhaiterai effectuer une requete POST depuis mon application. Pour cela j'utilise indy 9 dans delphi 6. Mon serveur est de type tomcat, mon destinataire une petite Servlet. Actuellement j'ai bien la page de retour mais les parametres du formulaire ne semble pas etre envoyé a ma petite servlet, quelqu'un peut il me dire pourquoi les parametres ne sont pas expediés !
Voici le code utilisé :
AValues := TStringList.Create;
ResponseStream := TStringStream.Create('');
data := TIdMultiPartFormDataStream.Create;
IdHTTP1.Request.ContentType := data.RequestContentType;
AValues.Values['param1'] := 'John Doe';
AValues.Values['param2'] := 'public';
AValues.Values['file1'] := edit1.Text;
try
IdHTTP1.HandleRedirects := true;
//param simple test 1
data.AddFormField('param1','okkk');
//test 2
data.AddFormField('param2',AValues.Values['param2']));
data.AddFile('file1',AValues.Values['file1'],GetMIMETypeFromFile(AValues.Values['file1']));
data.Position := 0;
try
IdHTTP1.Post('http://localhost/webpages/Login',data,ResponseStream);
except
showmessage('not ok');
end;
finally
Memo1.Text := ResponseStream.DataString;
ResponseStream.Free;
data.Free;
AValues.Free;
end;
end;