|
附帶的例子由于indy版本的問(wèn)題，有點(diǎn)小問(wèn)題（其實(shí)用文本工具修改一下dfm,去掉新增的屬性就可以了）,。我干脆把源碼給貼出來(lái)吧,，版權(quán)屬于原作者
一.用于實(shí)現(xiàn)form流格式的單元（MsMultiPartFormData.pas）
unit MsMultiPartFormData;
interface
uses
SysUtils, Classes;
const
CONTENT_TYPE = 'multipart/form-data; boundary= ';
CRLF = #13#10;
CONTENT_DISPOSITION = 'Content-Disposition: form-data; name= "%s " ';
FILE_NAME_PLACE_HOLDER = '; filename= "%s " ';
CONTENT_TYPE_PLACE_HOLDER = 'Content-Type: %s ' + crlf + crlf;
CONTENT_LENGTH = 'Content-Length: %d ' + crlf;
type
TMsMultiPartFormDataStream = class(TMemoryStream)
private
FBoundary: string;
FRequestContentType: string;
function GenerateUniqueBoundary: string;
public
procedure AddFormField(const FieldName, FieldValue: string);
procedure AddFile(const FieldName, FileName, ContentType: string; FileData: TStream); overload;
procedure AddFile(const FieldName, FileName, ContentType: string); overload;
procedure PrepareStreamForDispatch;
constructor Create;
property Boundary: string read FBoundary;
property RequestContentType: string read FRequestContentType;
end;
implementation
{ TMsMultiPartFormDataStream }
constructor TMsMultiPartFormDataStream.Create;
begin
inherited;
FBoundary := GenerateUniqueBoundary;
FRequestContentType := CONTENT_TYPE + FBoundary;
end;
procedure TMsMultiPartFormDataStream.AddFile(const FieldName, FileName,
ContentType: string; FileData: TStream);
var
sFormFieldInfo: string;
Buffer: PChar;
iSize: Int64;
begin
iSize := FileData.Size;
sFormFieldInfo := Format(CRLF + '-- ' + Boundary + CRLF + CONTENT_DISPOSITION +
FILE_NAME_PLACE_HOLDER + CRLF + CONTENT_LENGTH +
CONTENT_TYPE_PLACE_HOLDER, [FieldName, FileName, iSize, ContentType]);
Write(Pointer(sFormFieldInfo)^, Length(sFormFieldInfo));
FileData.Position := 0;
GetMem(Buffer, iSize);
try
FileData.Read(Buffer^, iSize);
Write(Buffer^, iSize);
finally
FreeMem(Buffer, iSize);
end;
end;
procedure TMsMultiPartFormDataStream.AddFile(const FieldName, FileName,
ContentType: string);
var
FileStream: TFileStream;
begin
FileStream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
try
AddFile(FieldName, FileName, ContentType, FileStream);
finally
FileStream.Free;
end;
end;
procedure TMsMultiPartFormDataStream.AddFormField(const FieldName,
FieldValue: string);
var
sFormFieldInfo: string;
begin
sFormFieldInfo := Format(CRLF + '-- ' + Boundary + CRLF + CONTENT_DISPOSITION + CRLF + CRLF +
FieldValue, [FieldName]);
Write(Pointer(sFormFieldInfo)^, Length(sFormFieldInfo));
end;
function TMsMultiPartFormDataStream.GenerateUniqueBoundary: string;
begin
Result := '--------------------------- ' + FormatDateTime( 'mmddyyhhnnsszzz ', Now);
end;
procedure TMsMultiPartFormDataStream.PrepareStreamForDispatch;
var
sFormFieldInfo: string;
begin
sFormFieldInfo := CRLF + '-- ' + Boundary + '-- ' + CRLF;
Write(Pointer(sFormFieldInfo)^, Length(sFormFieldInfo));
Position := 0;
end;
end.
二。調(diào)用的方法：
1,。先包含MsMultiPartFormData（uses MsMultiPartFormData;)
2,。把如下代碼加到需要的地方
var
ResponseStream: TMemoryStream;
MultiPartFormDataStream: TMsMultiPartFormDataStream;
begin
MultiPartFormDataStream := TMsMultiPartFormDataStream.Create;
ResponseStream := TMemoryStream.Create;
try
IdHttp1.Request.ContentType := MultiPartFormDataStream.RequestContentType;
//添加表單的字段 （前一個(gè)參數(shù)是字段名，后一個(gè)參數(shù)是字段值）
MultiPartFormDataStream.AddFormField( 'PersonName ', edtPersonName.Text);
MultiPartFormDataStream.AddFormField( 'Description ', edtDescription.Text);
//添加上載的文件（第一個(gè)是字段名,，第二個(gè)是文件名,，第三個(gè)是文件類型）
MultiPartFormDataStream.AddFile(edtFile.Name, edtFile.Text, edtMIMEType.Text);
{ You must make sure you call this method *before* sending the stream }
MultiPartFormDataStream.PrepareStreamForDispatch;
MultiPartFormDataStream.Position := 0;
//調(diào)用idhttp的post方法，第一個(gè)參數(shù)是用于處理上載form的asp/php等等腳本,，第三個(gè)是接收腳本執(zhí)行完成后的返回內(nèi)容)
IdHTTP1.Post( "http://xxx./upload.asp ", MultiPartFormDataStream, ResponseStream);
finally
MultiPartFormDataStream.Free;
ResponseStream.Free;
end;
end;
從這些代碼可以引出很多應(yīng)用：
1,。asp里調(diào)用其它腳本語(yǔ)言如（php,jsp,等等）。把這段代碼用組件實(shí)現(xiàn),，在asp中調(diào)用,，就可以 了。
2,。從普通的應(yīng)用程序調(diào)用asp,php等等腳本
3,。傳統(tǒng)的html中，必須在瀏覽器中選擇文件,，才能上載（號(hào)稱是為了安全）,，通過(guò)這個(gè)就可以實(shí)現(xiàn)
不通過(guò)選擇文件，實(shí)現(xiàn)上載,。
|
