Internet Direct (Indy)
Home
PreviousUpNext
TIdMultiPartFormDataStream.AddFormField Method
Pascal
procedure AddFormField(
    const AFieldName: string; 
    const AFieldValue: string
);
Parameters 
Description 
AFieldName 
Name of the content field.
 
AFieldValue 
Value of the content field. 

AddFormField is a procedure used to add a named content field with a given value to the multipart data stream. AFieldName contains the name to assign to the content field. AFieldValue contains the value for the content field. 

AddFormField create a TIdFormDataField instance in the internal collection used for form fields. Te values indicated in AFieldName and AFieldValue are assigned to the FieldName and FieldValue properties. 

AddFile updates the Size property to include the size of any exisiting content fields and the size of the newly added content field (including headers). 

(Delphi) Adding an upload file to a multipart data stream. 

 

  AValues := TIdStringList.Create;

  AValues.Values['usr'] := '"John Doe" ';
  AValues.Values['grp'] := 'public';
  AValues.Values['fil'] := 'c:imageslogo.gif';

  PostStream:= TIdMultiPartFormDataStream.Create;
  ResponseStream := TIdStringStream.Create('');

  try
    PostStream.AddFormField('usr', AValues.Values['usr']);
    PostStream.AddFormField('grp', AValues.Values['grp']);

    PostStream.AddFile('fil', AValues.Values['fil'],
      GetMIMETypeFromFile(AValues.Values['fil']));

    IdHTTP1.Request.ContentType := PostStream.RequestContentType;
    IdHTTP1.Post(sURL, PostStream, ResponseStream);
  finally
    Memo1.Text := ResponseStream.DataString;
    ResponseStream.Free;
    PostStream.Free;
    AValues.Free;
  end;
Internet Direct (Indy) version 10.1.5
Copyright © 1993-2006, Chad Z. Hower (aka Kudzu) and the Indy Pit Crew. All rights reserved.
Website http://www.indyproject.org.
Post feedback to the Indy Documentation newsgroup.