Необходимо вытыщить значение переменной из Ява скрипта формируемого в Делфи - Помощь студентам

Ekushenko · 09.03.2010, 21:15

Привет всем.
Делаю диплом, возникла проблемка, решил что на форуме легче будет спросить...

Необходимо вытыщить значение переменной из Ява скрипта формируемого в Делфи. Формируется страница HTML, используются классы и методы гугл.мапс. НО суть не в этом. Переменные объявляются в скрипте, нужно вытащить их на форму.

текст:

unit Unit1;
interface
uses
...

type
TForm1 = class(TForm)
///
procedure HTMLGenerat;
///

private
CodeHTML: string;
GeneratedHTML,zoom_index,matrice_im age : TStringList;
map:Tbitmap;
nb,statu_nb:integer;
nbimage_Long,nbimage_Lati:real;
statu_b:boolean;
end;

var
Form1: TForm1;
MyMouse: TMouse;
metka: boolean;
HTML_Text:string;

implementation

const
TEMP_FILE_NAME = '\BAGMaps.html';
{$R *.dfm}
procedure Tform1.HTMLGenerat;
begin

CodeHTML := '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"'
+'"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">'#13
+'<html xmlns="http://www.w3.org/1999/xhtml" xmlns:v="urn:schemas-microsoft-com:vml">'#13
+'<head>'#13
+'<meta http-equiv="content-type" content="text/html; charset=utf-8"/>'#13
+'<title>Google Maps JavaScript API Example: Simple Map</title>'#13
+'<script src="http://maps.google.com/maps?file=api&v=2&key='+ Key.Text+'"'#13
+'type="text/javascript"></script>'#13
+'<script type="text/javascript">'#13
+'function initialize() {'#13
+'if (GBrowserIsCompatible()) {'#13
+'var map = new GMap2(document.getElementById("map_ canvas"));'#13
+'map.setCenter(new GLatLng('+Latitude.Text +','+ Longitude.Text +'),'+inttostr(Zoom.ItemIndex) + ','+'G_'+MapType.Text +'_MAP'+');'#13

// Вот наши переменные
+'var xt,yt = 0;'#13

// здесь мы в них положим нужную инфу
+'map.getCenter(xt,yt,true);'#13
// а вопрос - как достать на форму?

+' }'#13
+' }'#13
+'</script>'#13
+'</head>'#13
+'<body onload="initialize()" onunload="GUnload()">'#13
+'<div id="map_canvas" style="width: 800px; height: 600px"></div>'#13
+'</body>'#13
+'</html>'#13;
HTML_Text := 'любой текст!!!';
CodeHTML := CodeHTML + HTML_Text;

end;

procedure Delay(ms: longint);
var
TheTime: LongInt;
begin
TheTime := GetTickCount + ms;
while GetTickCount < TheTime do
Application.ProcessMessages;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
xt,yt: integer;
begin
HTMLGenerat;
GeneratedHTML.Text :=CodeHTML ;
GeneratedHTML.SaveToFile(TEMP_FILE_ NAME);
webBrowser1.Navigate(TEMP_FILE_NAME );
xt:= WebBrowser1.GetProperty('xt');
showmessage (inttostr(xt));

// webBrowser1.Navigate('D:\11Telechar gement\13-01-2008\Convert Latitude - Longitude in Degrees-Minutes-Seconds to-from Decimal (FCC) USA.mht');

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
GeneratedHTML := TStringList.Create;
zoom_index := TStringList.Create;
matrice_image := TStringList.Create;
statu_b:=false;
nbimage_Lati:=90;
statu_nb:=0;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin
//Form1.m;

// Delay(20);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
metka:=true;

end;

end.

TzX · 09.03.2010, 21:27

Так что именно из конкретного примера тебе нужно достать? По моему тут обычный прасинг (если правильно понял вас), юзай Pos, PosEx

Ekushenko · 12.03.2010, 04:32

// Вот наши переменные
+'var xt,yt = 0;'#13

// здесь мы в них положим нужную инфу
+'map.getCenter(xt,yt,true);'#13
// а вопрос - как достать на форму?

вот в этой части текста к примеру надо вытащить xt,yt.
надо чтобы эти значения при генерации страницы передавались любой другой внутренней переменной самой программы, т.е. чтобы вытащить потом ее на форме

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Значение переменной	4BlooD	Общие вопросы Delphi	2	20.01.2010 16:09
Нужен ява програмист для разработки ява сервера aion	roverik	Свободное общение	1	19.12.2009 17:14
Как совместить эти 2 скрипта, или что необходимо подправить?	МIX	JavaScript, Ajax	0	19.12.2009 09:03
Значение логической переменной	Shevali	Помощь студентам	2	17.03.2009 22:41
сделать Подсветку в хтмл с помощью ява скрипта?	Simply-Art	JavaScript, Ajax	2	08.12.2008 16:09

09.03.2010, 21:15	#1
Ekushenko Новичок Джуниор Регистрация: 09.03.2010 Сообщений: 2	Необходимо вытыщить значение переменной из Ява скрипта формируемого в Делфи Привет всем. Делаю диплом, возникла проблемка, решил что на форуме легче будет спросить... Необходимо вытыщить значение переменной из Ява скрипта формируемого в Делфи. Формируется страница HTML, используются классы и методы гугл.мапс. НО суть не в этом. Переменные объявляются в скрипте, нужно вытащить их на форму. текст: unit Unit1; interface uses ... type TForm1 = class(TForm) /// procedure HTMLGenerat; /// private CodeHTML: string; GeneratedHTML,zoom_index,matrice_im age : TStringList; map:Tbitmap; nb,statu_nb:integer; nbimage_Long,nbimage_Lati:real; statu_b:boolean; end; var Form1: TForm1; MyMouse: TMouse; metka: boolean; HTML_Text:string; implementation const TEMP_FILE_NAME = '\BAGMaps.html'; {$R *.dfm} procedure Tform1.HTMLGenerat; begin CodeHTML := '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"' +'"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">'#13 +'<html xmlns="http://www.w3.org/1999/xhtml" xmlns:v="urn:schemas-microsoft-com:vml">'#13 +'<head>'#13 +'<meta http-equiv="content-type" content="text/html; charset=utf-8"/>'#13 +'<title>Google Maps JavaScript API Example: Simple Map</title>'#13 +'<script src="http://maps.google.com/maps?file=api&v=2&key='+ Key.Text+'"'#13 +'type="text/javascript"></script>'#13 +'<script type="text/javascript">'#13 +'function initialize() {'#13 +'if (GBrowserIsCompatible()) {'#13 +'var map = new GMap2(document.getElementById("map_ canvas"));'#13 +'map.setCenter(new GLatLng('+Latitude.Text +','+ Longitude.Text +'),'+inttostr(Zoom.ItemIndex) + ','+'G_'+MapType.Text +'_MAP'+');'#13 // Вот наши переменные +'var xt,yt = 0;'#13 // здесь мы в них положим нужную инфу +'map.getCenter(xt,yt,true);'#13 // а вопрос - как достать на форму? +' }'#13 +' }'#13 +'</script>'#13 +'</head>'#13 +'<body onload="initialize()" onunload="GUnload()">'#13 +'<div id="map_canvas" style="width: 800px; height: 600px"></div>'#13 +'</body>'#13 +'</html>'#13; HTML_Text := 'любой текст!!!'; CodeHTML := CodeHTML + HTML_Text; end; procedure Delay(ms: longint); var TheTime: LongInt; begin TheTime := GetTickCount + ms; while GetTickCount < TheTime do Application.ProcessMessages; end; procedure TForm1.Button1Click(Sender: TObject); var xt,yt: integer; begin HTMLGenerat; GeneratedHTML.Text :=CodeHTML ; GeneratedHTML.SaveToFile(TEMP_FILE_ NAME); webBrowser1.Navigate(TEMP_FILE_NAME ); xt:= WebBrowser1.GetProperty('xt'); showmessage (inttostr(xt)); // webBrowser1.Navigate('D:\11Telechar gement\13-01-2008\Convert Latitude - Longitude in Degrees-Minutes-Seconds to-from Decimal (FCC) USA.mht'); end; procedure TForm1.FormCreate(Sender: TObject); begin GeneratedHTML := TStringList.Create; zoom_index := TStringList.Create; matrice_image := TStringList.Create; statu_b:=false; nbimage_Lati:=90; statu_nb:=0; end; procedure TForm1.Button3Click(Sender: TObject); begin //Form1.m; // Delay(20); end; procedure TForm1.Button2Click(Sender: TObject); begin metka:=true; end; end.

09.03.2010, 21:27	#2
TzX Пользователь Регистрация: 23.12.2009 Сообщений: 57	Так что именно из конкретного примера тебе нужно достать? По моему тут обычный прасинг (если правильно понял вас), юзай Pos, PosEx

12.03.2010, 04:32	#3
Ekushenko Новичок Джуниор Регистрация: 09.03.2010 Сообщений: 2	// Вот наши переменные +'var xt,yt = 0;'#13 // здесь мы в них положим нужную инфу +'map.getCenter(xt,yt,true);'#13 // а вопрос - как достать на форму? вот в этой части текста к примеру надо вытащить xt,yt. надо чтобы эти значения при генерации страницы передавались любой другой внутренней переменной самой программы, т.е. чтобы вытащить потом ее на форме