idhttp를 이용한 사이트 이미지 업로드

idhttp를 이용한 사이트 이미지 업로드

 

function IdHttpImgPost(URL:String;FormFieldName,FormFieldValue:array of STring;

FormFieldCount : integer;FieldName,FileName,imgType:String): String;

//user IdMultipartFormData;

function GetHostNameFromURL(URL: String): String;

var PosSlash: Integer;

begin

Result:=Trim(URL);

Result:=MidStr(Result, Pos('://', Result)+3, Length(Result));

PosSlash:=Pos('/', Result);

if PosSlash>0 then Result:=MidStr(Result, 1, PosSlash-1);

end;

var

UploadFile: TIdMultiPartFormDataStream;

IdHttpPost : TIdHTTP;

Outputs: TStringStream;

sURL: String;

i : integer;

begin

IdHttpPost := TIdHTTP.Create;

UploadFile := TIdMultiPartFormDataStream.Create;

Outputs := TStringStream.Create('');

sURL := URL;

try

IdHttpPost.Request.ContentType := UploadFile.RequestContentType;

for I := 0 to FormFieldCount - 1 do

begin

UploadFile.AddFormField(FormFieldName[i],FormFieldValue[i]);

end;

UploadFile.AddFile(FieldName,FileName,imgType);

UploadFile.Position := 0;

try

IdHttpPost.Post(sURL , UploadFile, Outputs);

except

Result := 'Post Error!!';

end;

Result := Outputs.DataString ;

finally

UploadFile.Free;

IdHttpPost.Free;

Outputs.Free;

end;

end;