|
09.11.2012, 09:08
|
#1
|
AnyKey`щик
Регистрация: 10.05.2012
Сообщений: 10
Написано 0 полезных сообщений (для 0 пользователей)
|
помогите как зделать webbrowser в MidletPascal
я хотел зделать как в delphi 7 webbrowser но незнаю HTML код есть, но как его недо отобразть на webbrowser
|
(Offline)
|
|
09.11.2012, 11:25
|
#2
|
Оператор ЭВМ
Регистрация: 06.03.2009
Сообщений: 38
Написано 3 полезных сообщений (для 3 пользователей)
|
Ответ: помогите как зделать webbrowser в MidletPascal
Сообщение от Zhamalbek
я хотел зделать как в delphi 7 webbrowser но незнаю HTML код есть, но как его недо отобразть на webbrowser
|
Ну, подключаемся к странице, парсим страницу, рисуем на экране в соответствии с парсером, это целый геморой =)
__________________
Единственный способ поумнеть, играть с более умным противником — основы шахмат, 1883 г.
|
(Offline)
|
|
09.11.2012, 12:04
|
#3
|
AnyKey`щик
Регистрация: 10.05.2012
Сообщений: 10
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: помогите как зделать webbrowser в MidletPascal
с коддом поможешь
|
(Offline)
|
|
09.11.2012, 12:13
|
#4
|
Оператор ЭВМ
Регистрация: 06.03.2009
Сообщений: 38
Написано 3 полезных сообщений (для 3 пользователей)
|
Ответ: помогите как зделать webbrowser в MidletPascal
Сообщение от Zhamalbek
с коддом поможешь
|
Ну я не много знаю, могу написать получение страницы в виде строки. а дальше будет нужно всё это дело обрабатывать и это настоящий геморой=)
__________________
Единственный способ поумнеть, играть с более умным противником — основы шахмат, 1883 г.
|
(Offline)
|
|
09.11.2012, 12:30
|
#5
|
AnyKey`щик
Регистрация: 10.05.2012
Сообщений: 10
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: помогите как зделать webbrowser в MidletPascal
а че библотек нету чтоли?
|
(Offline)
|
|
09.11.2012, 13:07
|
#6
|
Оператор ЭВМ
Регистрация: 06.03.2009
Сообщений: 38
Написано 3 полезных сообщений (для 3 пользователей)
|
Ответ: помогите как зделать 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.
|
__________________
Единственный способ поумнеть, играть с более умным противником — основы шахмат, 1883 г.
|
(Offline)
|
|
09.11.2012, 13:59
|
#7
|
AnyKey`щик
Регистрация: 10.05.2012
Сообщений: 10
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: помогите как зделать webbrowser в MidletPascal
тр что ты написал работаеть?
и ссылкамый что делать?
|
(Offline)
|
|
09.11.2012, 14:18
|
#8
|
Оператор ЭВМ
Регистрация: 06.03.2009
Сообщений: 38
Написано 3 полезных сообщений (для 3 пользователей)
|
Ответ: помогите как зделать webbrowser в MidletPascal
Сообщение от Zhamalbek
тр что ты написал работаеть?
и ссылкамый что делать?
|
ну я же сказал что все это дело будет нужно обрабатывать, не буду же я за тебя всю программу писать=)
а этот код работает
__________________
Единственный способ поумнеть, играть с более умным противником — основы шахмат, 1883 г.
|
(Offline)
|
|
09.11.2012, 22:51
|
#9
|
AnyKey`щик
Регистрация: 10.05.2012
Сообщений: 10
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: помогите как зделать webbrowser в MidletPascal
спосибо!!
|
(Offline)
|
|
02.03.2013, 00:06
|
#10
|
Оператор ЭВМ
Регистрация: 17.12.2011
Сообщений: 26
Написано 4 полезных сообщений (для 5 пользователей)
|
Ответ: помогите как зделать webbrowser в MidletPascal
Zhamalbek не какой ты не программист
|
(Offline)
|
|
04.03.2013, 10:26
|
#11
|
AnyKey`щик
Регистрация: 10.05.2012
Сообщений: 10
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: помогите как зделать webbrowser в MidletPascal
Сообщение от Maga05
Zhamalbek не какой ты не программист
|
а ты кто такой что человека рассуждать
|
(Offline)
|
|
06.03.2013, 19:56
|
#12
|
Оператор ЭВМ
Регистрация: 17.12.2011
Сообщений: 26
Написано 4 полезных сообщений (для 5 пользователей)
|
Ответ: помогите как зделать webbrowser в MidletPascal
хорошо. не буду спорить. Почитай rugame.mobi/game/56913/
|
(Offline)
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 12:55.
|