آپلود فایل از دلفی به php

[صابر طهماسبی]

سلام
یه اسکریپت php دارم که خیلی ساده یه فایل رو آپلود می کنه نام فیلد فایل هم file هست
حالا می خوام با استفاده از دلفی و این اسکریپت فایل اپلود کنم کد برنامه دلفی به شکل زیر است اما هنگام اجرا خطا می ده که تصویر خطا را در ضمیمه گذاشتم
اگه دوستان لطف کنند راهنمایی کنند ممنون میشم:

کد برنامه دلفی :




unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,
StdCtrls, IdMultipartFormData ;

type
TForm1 = class(TForm)
Button1: TButton;
IdHTTP: TIdHTTP;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
stm: TIdMultiPartFormDataStream;
begin
stm.Create;
stm.AddFile('file','d:\s.jpg','image/jpeg');
IdHTTP.Post('http://localhost/up.php',stm);
stm.Free;
end;

end.



سوال دیگه اینکه برای استفاده از دستور GetMimeTypeFromFile چه یونیتی رو باید استفاده کنم؟

[vcldeveloper]

اما هنگام اجرا خطا می ده
به خاطر اینکه stm رو Create نکردید، باید به جای اون stm.Create می نوشتید:


stm := TIdMultiPartFormDataStream.Create;


سوال دیگه اینکه برای استفاده از دستور GetMimeTypeFromFile چه یونیتی رو باید استفاده کنم؟
IdGlobalProtocols