А можно как нибудь задействовать JAVA SCRIPT в делфи

[eldar]

Ну вот например есть java script а имеено файл который находиться на сервере
допустим его адрес
www.site.ru/test.js

есть код проги которая должна файлы заливать:
unit Unit1;

interface

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

type
TForm1 = class(TForm)
IdHTTP1: TIdHTTP;
Edit1: TEdit;
Button2: TButton;
Label1: TLabel;
Label2: TLabel;
MaskEdit1: TMaskEdit;
Button1: TButton;


procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}





procedure TForm1.Button2Click(Sender: TObject);
var
S: TStringList;


begin

S:= TStringList.Create;
s.Add('go=1');
S.Add('login='+Edit1.Text);
S.Add('password='+MaskEdit1.Text);




IdHTTP1.Post('http://depositfiles.com/en/login.php', S);
idhttp1.Get('http://depositfiles.com/en/');
end;



procedure TForm1.Button1Click(Sender: TObject);
var
a : TIdMultiPartFormDataStream;
begin
idHTTP1.get('http://upload9.depositfiles.com/en/');

a := TIdMultiPartFormDataStream.Create;
a.AddFormField('MAX_FILE_SIZE','209 7152000');



a.AddFormField('go', '1');
a.AddFormField('archive_password', '');
a.AddFormField('receivers', '1');
a.AddFormField('email', '');
a.AddFormField('agree', '1');

a.AddFile('files', 'C:\1.txt', 'text/plain');

idHTTP1.Post('http://upload9.depositfiles.com/en/', a);
a.Free;
idhttp1.Get('http://depositfiles.com/en/');

end;

end.

Да вот проблема она должна ещё один параметр передавать вот этот

Content-Disposition: form-data; name="UPLOAD_IDENTIFIER"

999358386w3udk4vzkvzpfuum6vi3tv29wx uvgspo

А формерует этот параметр вот этот java script

<script type="text/javascript" src="http://img3.depositfiles.com/js/upload_utils.js"></script>