http – дайте пару примеров

[BASSON XVI]

Снова здорова!!! Дайте пару примеров на работу с Http! В принципе мне нужно:
Чтение некоторых данных с определённых форм с удалённой страницы!
Запись определённых данных в формы на удалённой странице!
Вот ещё проблемка как можно сделать кнопку отправить, то есть что бы в форме на удалённой странице она нажималась!
Чтение данных полученных после отправки своих данных!
Дайте пару примеров с пояснениями очь нужно! Кто поможет отблагодорю!

[ARV]

По-моему, чтение данных из формы иначе как парсингом html-кода загруженной страницы не сделаешь... То есть загружаешь свою страницу как строку и начинаешь в этой строке искать тег <form> - потом ищешь соответствующие теги полей формы и разбираешься с их значениями... имхо, это очень муторно...
А для передачи данных в форму (и "нажатия" кнопки submit) просто надо использовать параметры адресной строки. Предположим, форма, с которой ты работаешь, находится во такому адресу http://www.kuku.com/inputform.php, а в самой форме есть поля ввода номера Item и имени Name. Тогда для отправки номера 10 и имени Vasya надо обратиться по следующему адресу http://www.kuku.com/inputform.php&Item=10&Name=Vasya - и данные пошлются на сервер, как будто ты нажал кнопку Submit. Только вид запроса надо верно выставить - если в форме метод отправки GET, то надо соответственно и http-запрос GET делать, если POST - то соответственно запрос POST.
Ну, а в ответ на твой запрос ты получишь строку со страницей ответа...
В общем, для реализации этого надо скорее знать html и интернет-технологии, чем Java или MidletPascal

[BASSON XVI]

Понятно а если уже с Мидлета отправлять готовые данные как форму с именами полей! Так как у меня адрес вроде такой www.kuku.ru/anekdot/
или надо длеать так www.kuku.ru/anekdot/index.php&Item=10&Name=Vasya

[http://neten.org]

После адреса нужно знак вопроса ставить а не &
надо длеать так www.kuku.ru/anekdot/index.php?Item=10&Name=Vasya

[BASSON XVI]

Народо у меня тгда вопрос! А если мне вместо англискаго Vasya надо отправлять русский текст с этим как быть? и ещё я незнаю какая в конце страница! так как адрес только такой даже если в браузере серфить! www.anekdot.ru/bab/

[ARV]

Русский текст отправляется путем указания кода каждого символа со знаком "процент" - знаете, как в google, когда ищешь русские слова? типа %20 - это пробел, %21 - это 1 и т.д. то есть надо писать типа Name=%97%64%46 и т.д. (так можно вставить и "запрещенные" символы)
если страница в строке браузера не показано - по умолчанию она называется index, а вот расширение может быть заранее неизвестным - php, dhtml или еще какое-то... но в этом случае можно просто написать примерно так:
www.anekdot.ru/bab/?Name=Vasja&Item=100

[BASSON XVI]

Вопрос тогда такой как его кодировать! Ну тоесть какое значение имеет каждая буква!

[ViNT]

Значение можно получить стандартной функцией ord:

s:=ord(getchar(str,i));

Хотя потом помоему придется еще переводить в hex

[Piligrim]

еще забыли перевести в win1251

[ViNT]

Сообщение от pilgrim

еще забыли перевести в win1251

А как это сделать?

[BASSON XVI]

в принцепи этот сервис все переводит в транслит!!! Но писать на ранслите не удобно! так что можно и в мидлет вставить перевод на трансли!!! Его потом можно будет без процентов отправить да!!!

[Dialogus]

Эт я использовал в своей проге SmsDgs (геморно конечно сделано, но все же)

baza := '%D0%B0%D0%B1%D0%B2%D0%B3%D0%B4%D0%B5%D1%91%D0%B6%D0%B7%D0%B8%D0%B9%D0%BA%D0%BB%D0%BC%D0%BD%D0%BE%D0%BF%D1%80%D1%81%D1%82%D1%83%D1%84%D1%85%D1%86%D1%87%D1%88%D1%89%D1%8A%D1%8B%D1%8C%D1%8D%D1%8E%D1%8F%D0%90%D0%91%D0%92%D0%93%D0%94%D0%95%D0%81%D0%96%D0%97%D0%98%D0%99%D0%9A%D0%9B%D0%9C%D0%9D%D0%9E%D0%9F%D0%A0%D0%A1%D0%A2%D0%A3%D0%A4%D0%A5%D0%A6%D0%A7%D0%A8%D0%A9%D0%AA%D0%AB%D0%AC%D0%AD%D0%AE%D0%AF';
alf  := 'абвгдеёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';

for i := 0 to 65 do
    begin
    
    rus_alf[i] := getchar(alf, i);
    rus_mess[i] := copy(baza, n, n+6);
    n:= n+6;
    end;

// поехали :-D

for i := 0 to length(message)-1 do
    begin
    
            for n:=0 to 65 do
            begin
            if getchar(message,i) = rus_alf[n] then 
                begin
                message_m := message_m + rus_mess[n] ;
                z:=1;
                end;
                else z:=z+0;
             
            end;
            
            
    if z = 0 then
            begin
            message_m := message_m + getchar(message, i);
            end;
    if getchar(message,i) = chr(ord(' ')) then message_m := message_m + '%20' ;
    if getchar(message,i) = chr(ord('.')) then message_m := message_m + '%2E' ;
    if getchar(message,i) = chr(ord(',')) then message_m := message_m + '%2C' ;
    if getchar(message,i) = chr(ord('!')) then message_m := message_m + '%21' ;
    if getchar(message,i) = chr(ord(':')) then message_m := message_m + '%3A' ;
    if getchar(message,i) = chr(ord(';')) then message_m := message_m + '%3B' ;
    if getchar(message,i) = chr(ord('(')) then message_m := message_m + '%28' ;
    if getchar(message,i) = chr(ord(')')) then message_m := message_m + '%29' ;
    if getchar(message,i) = chr(ord('=')) then message_m := message_m + '%3D' ;
    if getchar(message,i) = chr(ord('+')) then message_m := message_m + '%2B' ;
    if getchar(message,i) = chr(ord('$')) then message_m := message_m + '%24' ;
    if getchar(message,i) = chr(ord('#')) then message_m := message_m + '%23' ;
    if getchar(message,i) = chr(ord('%')) then message_m := message_m + '%25' ;
    if getchar(message,i) = chr(ord('&')) then message_m := message_m + '%26' ;
    if getchar(message,i) = chr(ord('?')) then message_m := message_m + '%3F' ;
    if getchar(message,i) = chr(ord('"')) then message_m := message_m + '%22' ;
    if getchar(message,i) = chr(ord('/')) then message_m := message_m + '%2F' ;
    if getchar(message,i) = chr(ord('\')) then message_m := message_m + '%5C' ;
    if getchar(message,i) = chr(ord('[')) then message_m := message_m + '%5B' ;
    if getchar(message,i) = chr(ord(']')) then message_m := message_m + '%5D' ;
    if getchar(message,i) = chr(ord('{')) then message_m := message_m + '%7B' ;
    if getchar(message,i) = chr(ord('}')) then message_m := message_m + '%7D' ;
    if getchar(message,i) = chr(ord('@')) then message_m := message_m + '%40' ;
    if getchar(message,i) = chr(ord('<')) then message_m := message_m + '%3C' ;
    if getchar(message,i) = chr(ord('>')) then message_m := message_m + '%3E' ;
    
    if getchar(message,i) = chr(ord('0')) then message_m := message_m + '0' ;
    if getchar(message,i) = chr(ord('1')) then message_m := message_m + '1' ;
    if getchar(message,i) = chr(ord('2')) then message_m := message_m + '2' ;
    if getchar(message,i) = chr(ord('3')) then message_m := message_m + '3' ;
    if getchar(message,i) = chr(ord('4')) then message_m := message_m + '4' ;
    if getchar(message,i) = chr(ord('5')) then message_m := message_m + '5' ;
    if getchar(message,i) = chr(ord('6')) then message_m := message_m + '6' ;
    if getchar(message,i) = chr(ord('7')) then message_m := message_m + '7' ;
    if getchar(message,i) = chr(ord('8')) then message_m := message_m + '8' ;
    if getchar(message,i) = chr(ord('9')) then message_m := message_m + '9' ;

[BASSON XVI]

ТАк позырю ну попозже время не хватает!!!! Увы!!!

[slotoskol]

спасибо

[jkeks]

Ох и не люблю я кодировки всякие, поэтому пошел совсем иным путем, и написал другой трансляторчик..

s1:='ЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮЁ';
        s2:='йцукенгшщзхъфывапролджэячсмитьбюё';
        s3:='IcukengSZzhNfEvaproldWFyPsmitMbUY';

Перекодировка так:
                    // преобразование users в англ
                    for i:=0 to length(users) do
                        begin
                        for o:=0 to length(s1) do
                            begin
                            if getChar(users,i)=getChar(s1,o) then users:=setChar(users,getChar(s2,o),i);
                            if getChar(users,i)=getChar(s2,o) then users:=setChar(users,getChar(s3,o),i);
                            end;
                        end; 


Чем вполне доволен очень, правда Заглавные буквы как понимаете я зарезал, зато от кодировок и регистров избавился нафиг вообще.

И еще.. размещайте ваши сайты в рейтинге hobocash.com