我想要用Delphi6寫一支被ASP呼叫的程式，程式使用HTTP來當傳輸的通訊協定 主要的功能是利用HTTP將LOCAL端的一個檔案傳輸到SERVER端，請問這個程式要怎麼寫啊？有沒有人有這樣的開發經驗，因為我是新手，沒有方向不知道該如何進行！還請各位高手不吝指導小弟

您好, 可利用 indy 裡的 TIdHttp 元件來做上傳檔案的動作 參考以下網址, 內有詳細說明(含範例):  http://www.matlus.com/scripts/website.dll/Tutorials?DelphiTCPIP&IndyMultiPartFormData&5

procedure TForm1.Button2Click(Sender: TObject);
var
  ResponseStream: TMemoryStream;
  MultiPartFormDataStream: TMsMultiPartFormDataStream;
begin
  MultiPartFormDataStream := TMsMultiPartFormDataStream.Create;
  ResponseStream := TMemoryStream.Create;
  try
    IdHttp1.Request.ContentType := MultiPartFormDataStream.RequestContentType;
    MultiPartFormDataStream.AddFormField('PersonName', edtPersonName.Text);
    MultiPartFormDataStream.AddFormField('Description', edtDescription.Text);
    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;
    IdHTTP1.Post(edtHost.Text, MultiPartFormDataStream, ResponseStream);
  finally
    MultiPartFormDataStream.Free;
    ResponseStream.Free;
  end;
end;

-- hagar.

請問一下，這個範例是否有其他的注意事項？比如說IIS環境要設定或是什麼的 因為我拿他的範例來測，他並沒有把LOCAL的檔案丟到Web Server上面， 請問這個部分是什麼問題ㄋ？

小弟沒做過, 看了一些討論 好像 web server 端要有一支負責 upload 的網頁(.asp 或 .php 或 .cgi ... 等) 這樣才能做 upload 的動作 -- hagar.

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.