forum.boolean.name

forum.boolean.name (http://forum.boolean.name/index.php)
-   MidletPascal (http://forum.boolean.name/forumdisplay.php?f=46)
-   -   помогите как зделать webbrowser в MidletPascal (http://forum.boolean.name/showthread.php?t=17496)

Zhamalbek 09.11.2012 09:08

помогите как зделать webbrowser в MidletPascal
 
я хотел зделать как в delphi 7 webbrowser но незнаю HTML код есть, но как его недо отобразть на webbrowser :SOS:

Deport 09.11.2012 11:25

Ответ: помогите как зделать webbrowser в MidletPascal
 
Цитата:

Сообщение от Zhamalbek (Сообщение 243000)
я хотел зделать как в delphi 7 webbrowser но незнаю HTML код есть, но как его недо отобразть на webbrowser :SOS:

Ну, подключаемся к странице, парсим страницу, рисуем на экране в соответствии с парсером, это целый геморой =)

Zhamalbek 09.11.2012 12:04

Ответ: помогите как зделать webbrowser в MidletPascal
 
с коддом поможешь :pardon:

Deport 09.11.2012 12:13

Ответ: помогите как зделать webbrowser в MidletPascal
 
Цитата:

Сообщение от Zhamalbek (Сообщение 243011)
с коддом поможешь :pardon:

Ну я не много знаю, могу написать получение страницы в виде строки. а дальше будет нужно всё это дело обрабатывать и это настоящий геморой=)

Zhamalbek 09.11.2012 12:30

Ответ: помогите как зделать webbrowser в MidletPascal
 
а че библотек нету чтоли?

Deport 09.11.2012 13:07

Ответ: помогите как зделать webbrowser в MidletPascal
 
вот тебе маленький тест как всё это работает
Цитата:

Program test;
uses proweb;
Var rc,c,x,y,i:integer;
str,def,text,null,Ru:string;
Begin
repeat

str:=null;
open('http://forum.boolean.name');
if get_error='' then set_method(GET);
if get_error='' then rc:=request;
if get_error='' then str:=get_data;
until rc=200;
c := Length(str);//считаем байты страницы
x:=Pos(str,'<title>');//Определим нахождение надписи <title> передадим х
y:=Pos(str,'</title>');//Определим нахождение надписи </title> передадим у
text:=Copy(str,x+7,y);//Скопируем текст по координатам х,у передадим результат text
Ru:=encode(text, 'utf-8', def);//Переведём кракозябры на русский из text в Ru
showform;//Новая форма
i := FormAddString(Ru);//Отобразим результат между строк <title></title>
delay(-1);//Бесконечное выполнение программы
end.

Zhamalbek 09.11.2012 13:59

Ответ: помогите как зделать webbrowser в MidletPascal
 
тр что ты написал работаеть?
и ссылкамый что делать?

Deport 09.11.2012 14:18

Ответ: помогите как зделать webbrowser в MidletPascal
 
Цитата:

Сообщение от Zhamalbek (Сообщение 243031)
тр что ты написал работаеть?
и ссылкамый что делать?

ну я же сказал что все это дело будет нужно обрабатывать, не буду же я за тебя всю программу писать=)
а этот код работает

Zhamalbek 09.11.2012 22:51

Ответ: помогите как зделать webbrowser в MidletPascal
 
спосибо!!

Maga05 02.03.2013 00:06

Ответ: помогите как зделать webbrowser в MidletPascal
 
Zhamalbek не какой ты не программист

Zhamalbek 04.03.2013 10:26

Ответ: помогите как зделать webbrowser в MidletPascal
 
Цитата:

Сообщение от Maga05 (Сообщение 254082)
Zhamalbek не какой ты не программист

а ты кто такой что человека рассуждать:4to:

Maga05 06.03.2013 19:56

Ответ: помогите как зделать webbrowser в MidletPascal
 
хорошо. не буду спорить. Почитай rugame.mobi/game/56913/


Часовой пояс GMT +4, время: 18:17.

vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot