Модераторы: Snowy, Poseidon, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Получение картинки кода защиты, Получение картинки кода защиты 
:(
    Опции темы
ishimcity
  Дата 16.7.2007, 05:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 1.6.2007
Где: Тюменская область . Ишим

Репутация: нет
Всего: 1



Здраствуйте Уважаемые програмисты,подскажите пожалусто как можно получить картинку с сайта с кодом подтверждения просто чтоб в моей проге она отображалась в Image.Спасибо
PM MAIL ICQ Skype YIM   Вверх
MetalFan
Дата 16.7.2007, 07:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 14
Всего: 128



делаешь get в stream, затем Image.LoadFromStream...


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
ishimcity
Дата 16.7.2007, 09:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 1.6.2007
Где: Тюменская область . Ишим

Репутация: нет
Всего: 1



Примерчик бы,если можно
PM MAIL ICQ Skype YIM   Вверх
sw04
Дата 16.7.2007, 10:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 372
Регистрация: 22.1.2007
Где: Ufa

Репутация: нет
Всего: 18



ishimcityhttp://drkb.ru 


--------------------
<удалено администрацией>
PM   Вверх
ishimcity
Дата 6.8.2007, 11:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 1.6.2007
Где: Тюменская область . Ишим

Репутация: нет
Всего: 1



Это я все сделал но картинка меняется постоянно.А у меня показвает только одну,как из этой ситуации выдти?
PM MAIL ICQ Skype YIM   Вверх
aktuba
Дата 6.8.2007, 11:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 9
Всего: 38



Цитата

Это я все сделал но картинка меняется постоянно.А у меня показвает только одну,как из этой ситуации выдти? 


код покажи.


--------------------
user posted image
PM MAIL WWW Skype   Вверх
Snowy
Дата 6.8.2007, 12:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484



Цитата(ishimcity @  6.8.2007,  11:24 Найти цитируемый пост)
Это я все сделал но картинка меняется постоянно.А у меня показвает только одну,как из этой ситуации выдти?
Скорее всего у тебя прокся кэширует.
Нужно делать запрос с указанием 'no-cache'.
PM MAIL   Вверх
ishimcity
Дата 7.8.2007, 06:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 1.6.2007
Где: Тюменская область . Ишим

Репутация: нет
Всего: 1



Вот мой код.

var
cod:TMemoryStream;
begin
Cod:=TMemoryStream.Create ;
idHTTP.Get('http://mmsuser.u-tel.ru/ctrlimg/?c=1411441260',cod);
cod.SaveToFile('C:\cod.jpg');

код сохраняется на диск чтоб потом загрузить в IMAGE.

вопще код получаю с http://www.tumen.u-tel.ru/content/Services/SMSandMMS/mmssend
но проблема в том что код картинки и адрес (http://mmsuser.u-tel.ru/ctrlimg/?c=1411441260) постоянно меняется,как можно его пропарсить


PM MAIL ICQ Skype YIM   Вверх
aktuba
Дата 7.8.2007, 06:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 9
Всего: 38



Правильно, что у тебя одна и таже картинка показывается. Ты же сам запрашиваешь один и тот-же url для картинки. Для того, чтобы были разные картинки, надо скачать страницу и выдернуть оттуда новый урл...


--------------------
user posted image
PM MAIL WWW Skype   Вверх
ishimcity
Дата 7.8.2007, 08:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 1.6.2007
Где: Тюменская область . Ишим

Репутация: нет
Всего: 1



О как !!!! А примерчик можно?
я так понял что нужно воспользоватся WebBrowser , я с ним мало знаком, каким образом вытянуть оттуда картинку.
PM MAIL ICQ Skype YIM   Вверх
ishimcity
Дата 7.8.2007, 08:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 1.6.2007
Где: Тюменская область . Ишим

Репутация: нет
Всего: 1



вот немного разобрался

var
Flag: OleVariant;
begin
flag := navNoReadFromCache;
webbrowser1.Navigate('http://www.tumen.u-tel.ru/content/Services/SMSandMMS/mmssend',flag);
end;


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

PM MAIL ICQ Skype YIM   Вверх
ishimcity
Дата 7.8.2007, 08:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 1.6.2007
Где: Тюменская область . Ишим

Репутация: нет
Всего: 1



и еще вот нашел пример а как его реализовать

uses ClipBrd;
...
procedure TForm1.LoadImage(N:integer);
var body, imgs, controlRange: olevariant;
begin
 body := WebBrowser1.OleObject.document.body;
 imgs := WebBrowser1.OleObject.document.images.item(N);//нужный img
 controlRange := body.createControlRange;
 controlRange.add(imgs);// вместо imgs можно сразу вставить WebBrowser1.OleObject.document.images.item(N)
 controlRange.execCommand('Copy', False, EmptyParam);//копируем
 if ClipBoard.HasFormat(CF_BITMAP) then begin
 Image1.Picture.Bitmap.LoadFromClipboardFormat(cf_BitMap, ClipBoard.GetAsHandle(cf_Bitmap), 0);//вставляем
 Clipboard.Clear;//по желанию чистим буфер...
 end;
end;
...
initialization
 OleInitialize(nil);

finalization
 OleUninitialize;

end.
PM MAIL ICQ Skype YIM   Вверх
MetalFan
Дата 7.8.2007, 09:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 14
Всего: 128



ой-ой... куда то ты не в ту сторону полез
скачиваешь страничку тем же idHTTP.Get, потом парсишь, выдираешь нужный url, и вперед


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
Snowy
Дата 7.8.2007, 09:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484



Модератор: и кнопочкой "Код" пользоваться не забывай
PM MAIL   Вверх
ishimcity
Дата 7.8.2007, 09:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 1.6.2007
Где: Тюменская область . Ишим

Репутация: нет
Всего: 1



MetalFan
Извени,но чего то я видимо недогоняю,мнеб примерчик,если можно.
PS. Вот самое интересное что такое "ПАРСИНГ" немогу понять


Это сообщение отредактировал(а) ishimcity - 7.8.2007, 09:51
PM MAIL ICQ Skype YIM   Вверх
ishimcity
Дата 7.8.2007, 10:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 1.6.2007
Где: Тюменская область . Ишим

Репутация: нет
Всего: 1



Хорошо загрузил я страничку в MEMO. Что дальше мне делать с ней?

Код

var
s:string;
begin
s:=idHTTP.Get('http://www.tumen.u-tel.ru/content/Services/SMSandMMS/mmssend');
memo.Lines.Text :=s;



 smile 
PM MAIL ICQ Skype YIM   Вверх
MetalFan
Дата 7.8.2007, 10:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 14
Всего: 128



Цитата(ishimcity @  7.8.2007,  09:47 Найти цитируемый пост)
что такое "ПАРСИНГ" 

wiki

тебе надо выделить подстроку из строки по определнному признаку


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
ishimcity
Дата 7.8.2007, 10:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 1.6.2007
Где: Тюменская область . Ишим

Репутация: нет
Всего: 1



Насколько я понял вот картинка http://mmsuser.u-tel.ru/ctrlimg/?c=0084280581 но она меняется постоянно вот это место 0084280581
PM MAIL ICQ Skype YIM   Вверх
MetalFan
Дата 7.8.2007, 11:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 14
Всего: 128



ishimcity, ну тогда алгоритм такой: находишь неизменяемую часть строки, копируешь код до опред.символа...


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
MetalFan
Дата 7.8.2007, 11:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 14
Всего: 128



Я в свое время налабал для своих нужд(выдирание определенной строки с html странички) нечто подобное:
Код

uses QStrings;
...
   function ExtractFromString( const ASourceString, AFromString, AToString: string; var AResultString: string;AFromPos: Integer = 0; const APrevString: string = ''): integer;
   var
     lPos1, lPos2: Integer;
     lTmpStr: string;
   begin
     Result := 0;
     if (ASourceString = '') or
        (AFromString = '') or
        (AToString = '') then Exit;
     if APrevString <> '' then
     begin
       lPos1 := Q_PosStr(APrevString, ASourceString, AFromPos);
       if lPos1 = 0 then Exit;
       lPos1 := lPos1 + Length (APrevString);
     end
     else
       lPos1 := AFromPos;
     lPos1 := Q_PosStr(AFromString, ASourceString, lPos1);
     if lPos1 = 0 then Exit;
     lPos1 := lPos1 + Length( AFromString );
     lPos2 := Q_PosStr(AToString, ASourceString, lPos1 + 1);
     if lPos2 = 0 then Exit;
     Result := lPos1;
     AResultString := Q_CopyRange(ASourceString, lPos1, lPos2 - 1);
   end;

только модуль QStrings надо будет слить.
описание:
Код

function ExtractFromString( const ASourceString, 
                                                     AFromString, 
                                                     AToString: string; 
                                                     var AResultString: string;
                                                     AFromPos: Integer = 0; 
                                                     const APrevString: string = ''): integer;

  ASourceString - тут понятно. исходный текст, допустим html странички
  AFromStringAToString - подстроки, между которыми должна находиться необходимая подстрока
  AResultString - найденная подстрока
  AFromPos - искать с некоторой позиции. используется при нескольких последовательных вызовах для поиска с одинаковыми условиями
  APrevString - если указана, то сначала ищется данная подстрока, и только затем с позиции после нее продолжается поиск по условиям выше
  Result - если найдена подстрока - то порядоквый номер первого символа, иначе - 0

пример использования в твоем случае 
Код

const 
  C_Prefix = 'http://mmsuser.u-tel.ru/ctrlimg/?c=';
...
  lPos := ExtractFromString( lHTMLString, C_Prefix, '>', lCode );
  if lPos > 0 then
    lLink := C_Prefix + lCode
  else
   lLink := '';

основываясь на соображении, что нужный линк заканчивается '>'

Это сообщение отредактировал(а) MetalFan - 7.8.2007, 11:48

Присоединённый файл ( Кол-во скачиваний: 28 )
Присоединённый файл  QStrings_6.06.424.zip 94,58 Kb


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
MetalFan
Дата 7.8.2007, 12:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 14
Всего: 128



з.ы. в принципе можно наверное и RegExp прикрутить... но я с ними пока не сталкивался и ничо посоветовать не могу(


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
aktuba
Дата 7.8.2007, 15:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 9
Всего: 38



Попробую написать навскидку:
Код

function GetUrl: string;
const
  C_Url='http://mmsuser.u-tel.ru/ctrlimg/?c=';
var
  txt: string;
  sPos, fPos: Integer;
  ltxt: Integer;
begin
  Result := '';
  txt := IdHTTP.Get('http://www.tumen.u-tel.ru/content/Services/SMSandMMS/mmssend');
  sPos := Pos(C_Url, txt);
  if sPos > 0 then
    begin
      ltxt := Length(C_Url);
      Inc(sPos, ltxt);
      fPos := sPos;
      while (fPos <= ltxt) and (txt[sPos] <> '"') do Inc(fPos);
      Result := Copy(txt, sPos, fPos - sPos);
    end;
end;


Писал прямо в браузере, поэтому могут быть ошибки... Но идея должна быть понятна...

Это сообщение отредактировал(а) aktuba - 8.8.2007, 12:33


--------------------
user posted image
PM MAIL WWW Skype   Вверх
ishimcity
Дата 8.8.2007, 05:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 1.6.2007
Где: Тюменская область . Ишим

Репутация: нет
Всего: 1



Да огромное спасибо но во в этом месте мне что то непонятно.

Код

txt := Get('http://www.tumen.u-tel.ru/content/Services/SMSandMMS/mmssend');




я предположил что там должен быть метод idHTTP но увы делфи сообщила что у его нет такого оператора GET,загадка.....видимо в функции он не так работат,ну это пол беды. буду ковырять дальше




Это сообщение отредактировал(а) ishimcity - 8.8.2007, 06:44
PM MAIL ICQ Skype YIM   Вверх
MetalFan
Дата 8.8.2007, 08:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 14
Всего: 128



ishimcityaktuba привел прототип(пример) кода. естественно тебе нужно вызвать Get у используемого тобой HTTP компонента.



--------------------
There are always someone smarter than you...
PM MAIL   Вверх
aktuba
Дата 8.8.2007, 12:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 9
Всего: 38



Цитата

aktuba привел прототип(пример) кода


Я это понял. Но использовать в подобном случае дополнительную библиотеку+столько кода - лишнее. Я дал вариант попроще и понятнее.

Цитата

но увы делфи сообщила что у его нет такого оператора GET


IdHTTP.Get.


--------------------
user posted image
PM MAIL WWW Skype   Вверх
ishimcity
Дата 9.8.2007, 13:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 1.6.2007
Где: Тюменская область . Ишим

Репутация: нет
Всего: 1



Спасибо ребята всем +, но всеже видимо непозубам мне это все сделать  smile  жаль.... неполучается нечего
PM MAIL ICQ Skype YIM   Вверх
aktuba
Дата 9.8.2007, 15:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 9
Всего: 38



Цитата

жаль.... неполучается нечего 


покажи свой код.


--------------------
user posted image
PM MAIL WWW Skype   Вверх
ishimcity
Дата 25.9.2007, 10:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 1.6.2007
Где: Тюменская область . Ишим

Репутация: нет
Всего: 1



Здраствуйте...Ребята всетаки недает мне моя идея жить спокойно сново взялся я за это дело и вот что получилось ,теперь я могу принемать точный адрес картинки,но картинка меняется а у меня адрес один и тотже остается ,что мне сделать вот мой код..
Код

procedure TForm1.Button1Click(Sender: TObject);
const
C_Url='http://mmsuser.u-tel.ru/ctrlimg/?c=';
var
  txt,ris: string;
  sPos, fPos: Integer;
  ltxt: Integer;
begin
  txt := Id.Get('http://www.tumen.u-tel.ru/content/Services/SMSandMMS/mmssend');
  sPos := Pos(C_Url, txt);
  if sPos > 0 then
    begin
      ltxt := Length(C_Url);
      Inc(sPos, ltxt);
      fPos := sPos;
      while (fPos <= ltxt) and (txt[sPos] <> '"')
      do Inc(fPos);

      ris:=Copy(txt, sPos, 10);
      
    end;

      end;
end.




ris - Это адрес картинки


Это сообщение отредактировал(а) ishimcity - 25.9.2007, 10:12
PM MAIL ICQ Skype YIM   Вверх
aktuba
Дата 25.9.2007, 12:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 9
Всего: 38



Цитата

картинка меняется а у меня адрес один и тотже остается ,что мне сделать вот мой код..


Какой адрес???  smile Тебе же картинку получить надо было... У меня твой код работает нормально...

Присоединённый файл ( Кол-во скачиваний: 53 )
Присоединённый файл  test.rar 1,54 Kb


--------------------
user posted image
PM MAIL WWW Skype   Вверх
ishimcity
Дата 25.9.2007, 12:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 1.6.2007
Где: Тюменская область . Ишим

Репутация: нет
Всего: 1



а у меня JPEG Error #42
Чего это он хочет?
 smile 
PM MAIL ICQ Skype YIM   Вверх
aktuba
Дата 25.9.2007, 13:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 9
Всего: 38



Delphi 7? =)


--------------------
user posted image
PM MAIL WWW Skype   Вверх
ishimcity
Дата 25.9.2007, 13:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 1.6.2007
Где: Тюменская область . Ишим

Репутация: нет
Всего: 1



Я сейчас работаю через прокси,возможно в ней проблема?! попробую код дома еще...

Добавлено через 22 секунды
Да 7 версия
PM MAIL ICQ Skype YIM   Вверх
aktuba
Дата 25.9.2007, 13:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 9
Всего: 38



Дело не в прокси, а именно в версии Delphi. На 7-ке у меня тоже такая проблема была. Надо попробовать обновить jpeg-модуль, наверное... Хотя мне это делать не пришлось, т.к. я в это время как-раз перешел на турбу.


--------------------
user posted image
PM MAIL WWW Skype   Вверх
ishimcity
Дата 25.9.2007, 13:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 1.6.2007
Где: Тюменская область . Ишим

Репутация: нет
Всего: 1



OK.... Спасибо огромное . дома у меня все версии делфи есть буду пробвать .......

PM MAIL ICQ Skype YIM   Вверх
ishimcity
Дата 25.9.2007, 16:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 1.6.2007
Где: Тюменская область . Ишим

Репутация: нет
Всего: 1



aktuba Огромное спаибо...все работает на делфи 2006...но еще есть вопросик. можно тебе на аську написать?

PM MAIL ICQ Skype YIM   Вверх
aktuba
Дата 25.9.2007, 22:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 9
Всего: 38



Цитата

можно тебе на аську написать?


Конечно =) Она же публично выложена...


--------------------
user posted image
PM MAIL WWW Skype   Вверх
In4matik
  Дата 28.9.2007, 08:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 22
Регистрация: 4.7.2007
Где: Красноярск

Репутация: нет
Всего: 1



Здравствуйте. Тему вы очень интересную развили.

Давно вот уже были задумки по этому поводу.  Как посмотреть картинку со странички, это еще пол беды. У меня проблемка еще покруче. Мож кто подскажет.

В общем, на страничке есть эта самая картинка с кодом, но она появляется не сразу, а при помощи каких-то скриптов выводится через некоторое время после обращения к странице.

http://www.uploading.com/ru/files/6G25DDT3/arhiv.rar.html

вот мне надо после того как эти долбанные 40 секунд пройдут эту картиночку изъять. или хотябы адрес ее.



PM MAIL WWW ICQ   Вверх
firs70
Дата 4.12.2007, 17:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 44
Регистрация: 12.2.2007

Репутация: нет
Всего: нет



In4matik, сейчас на уплоадинге отключен ввод картинки...
так что прсото лезишь в код страницы и берёшь её.
Если в ломак что то ковырять юзай проги например FullURL
PM MAIL   Вверх
In4matik
Дата 5.12.2007, 12:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 22
Регистрация: 4.7.2007
Где: Красноярск

Репутация: нет
Всего: 1



На аплоэдинг.ком картинки отключили дня через 3-4, после того как я здесь о нем написалsmile
И интерес к нему сразу же пропал.
Зато картинки пригодились в другом месте.

http://in4matik-krsk.narod.ru/sms.htm
PM MAIL WWW ICQ   Вверх
firs70
Дата 6.12.2007, 17:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 44
Регистрация: 12.2.2007

Репутация: нет
Всего: нет



да кстати никто не подскажет как очистить поле где картинка была загружена?
PM MAIL   Вверх
aktuba
Дата 6.12.2007, 19:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 9
Всего: 38



Цитата(firs70 @  6.12.2007,  18:18 Найти цитируемый пост)
да кстати никто не подскажет как очистить поле где картинка была загружена? 

т.е.?


--------------------
user posted image
PM MAIL WWW Skype   Вверх
Anakin
  Дата 12.12.2007, 10:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 192
Регистрация: 25.9.2006

Репутация: нет
Всего: нет



У меня возник вопрос. Я отснифил два результата мой и сайта.
ВОт два результата.
Мой:
Код

phonePrefix=373791&phoneNumber=33026&message=TextSMS&pictureCode=787405&sendSms&HTTP/1.1 200 OK

Вот с сайта:
Код

phonePrefix=373791&phoneNumber=33026&message=test&pictureCode=084108&type=sendSms&publicGuid=9f075aa8-c99f-4368-afe3-9940628e1dd4&url=%2FsendSms%2Fsent%2F&langUrl=%2Frus%2F&sendSmsSubmit=HTTP/1.1 302 

Соответственно у меня появляется вопрос.
Вопрсо номер:
1)Почему у меня в конце HTTP/1.1 200 OK а на сайте HTTP/1.1 302 
2)Вот этот строка в оригинальном снифе 9f075aa8-c99f-4368-afe3-9940628e1dd4 есть не что иное как имя фаила без расширения.
как мне его получить.
Использую пример найденый на данном форуме. вот код получения картинки
Код

procedure TfrmMain.btn_askimgClick(Sender: TObject);
var
pos1,pos2,pos3:integer;
img:string;
begin
Application.ProcessMessages;
IdAnti.Process;
try
get := HTTP.Get('http://www.moldcell.md/rus/sendsms/');
except
Application.MessageBox('Типа Эрор','Error',mb_OK);
end;
pos1 := pos('SRC="..',get);
delete(get,1,pos1+7);
pos2 := pos('"',get);
img := 'http://www.moldcell.md/securePicture/' + copy(get,1,pos2-1);
GetInetFile(img,'9ir3rs3ZWI.jpg');
image1.picture.LoadFromFile('9ir3rs3ZWI.jpg');

end;

МОжет кто то подсказать как мне это дело наладить.
Зарание Огромное человеческое Спасибо.
PM MAIL   Вверх
MetalFan
Дата 12.12.2007, 10:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 14
Всего: 128



Anakin
1. создай отдельную тему.
2. При чем тут ответ от сайта? сравнивай, что отсылаешь ты и браузер


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
Anakin
Дата 12.12.2007, 11:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 192
Регистрация: 25.9.2006

Репутация: нет
Всего: нет



Да дело в том что это касаетса этой темы так как это тоже самое. Я ведь получаю код картинки с защитой, и потом пытаюсь его отправить.
Ты прочитай внимательней может поймешь.

Цитата

2. При чем тут ответ от сайта? сравнивай, что отсылаешь ты и браузер 

А ты почитай внимательней. Я вопрос задал корректно. И по теме.
Повторяю этот вопрос относится к данному топику так как он связан с кодом защиты получаемым от сайта.
PM MAIL   Вверх
In4matik
Дата 12.12.2007, 12:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 22
Регистрация: 4.7.2007
Где: Красноярск

Репутация: нет
Всего: 1



Цитата(Anakin @ 12.12.2007,  10:05)
У меня возник вопрос. Я отснифил два результата мой и сайта.

Во-первых, какие результаты ты снифил? По методу ГЕТ?

попробуй из программы получить текст этого сайта и вывести его тупо в мемо. Я именно так разбирался.

Картинку ищи вот по такой части текста "src="/securePicture/" и потом опять до ковычек.
Тогда точно нужная картинка будет.

Я делал вот так:
Код

procedure TfMegaFonSib.GetInetPicture(sender: TObject);
const
  c_url='antirobot/?q=';
var
  txt,ris: string;
  sPos, fPos: Integer;
  ltxt: Integer;
  lStream: TMemoryStream;
  jpg: TJPEGImage;
begin
  Panel1.Caption:='Загрузка... Ждите...';
  Panel1.Font.Color:=clRed;
  Panel1.Update;
  Application.ProcessMessages;
  try
    txt:=IdHTTP1.Get('http://megafonsib.ru/sendsms');
  except
    MessageDlg('Сервис недоступен!'+chr(13)+'Проверте соединение с Интернет!',mtError,[mbOk],0);
    Panel1.Caption:='Сервис недоступен..';
    exit;
  end;
  sPos := Pos(C_Url, txt);
  if sPos > 0 then
    begin
      ltxt := Length(C_Url);
      Inc(sPos, ltxt);
      fPos := sPos;
      while (fPos <= ltxt) and (txt[sPos] <> '"')
        do Inc(fPos);
      ris:=Copy(txt, sPos, 7);
      Label1.Caption:=ris;
      if ris <> '' then
        begin
          lStream := TMemoryStream.Create;
          jpg := TJPEGImage.Create;
          try
            IdHTTP1.Get(C_Url + ris, lStream);
            lStream.Position := 0;
            jpg.LoadFromStream(lStream);
            Image1.Picture.Bitmap.Assign(jpg);
          finally
            jpg.Free;
            lStream.Free;
          end;
        end;
    end;
  Panel1.Caption:='Всё готово!';
  Panel1.Font.Color:=clWindowText;
  Panel1.Update;
  Application.ProcessMessages;
end;

PM MAIL WWW ICQ   Вверх
MetalFan
Дата 12.12.2007, 12:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 14
Всего: 128



Цитата(In4matik @  12.12.2007,  12:48 Найти цитируемый пост)
Application.ProcessMessages;

а это на кой?


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
Anakin
  Дата 12.12.2007, 14:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 192
Регистрация: 25.9.2006

Репутация: нет
Всего: нет



2 In4matik Хм.. а что идея не плохая. )) Гораздо лутше чем эта что я использую. Тут я смотрю в твоём примере мы загоняем картинку с Стрям(Память) а не в фаил. 
А я использую фаил.. 
Но твой пример мне гораздо больше нравитса. Спасибо шас буду попробую прикрутить это дело  smile 
Дело в том что я то пулучаю картинку хоть и через сохранение его на диск и потмо считование. Но он работает. Но тут дело в то что вот я смотрю на сайте имя картинки в её своиствах и оно выглядит так :
Код

9f075aa8-c99f-4368-afe3-9940628e1dd4.jpg

а если присмотретса в том снифе что я указал там присутствует ещё типа защита такая. Она зараза использует ещё имя картинки тока без расширения.
Вот:
Код

phonePrefix=373791&phoneNumber=33026&message=test&pictureCode=084108&type=sendSms&publicGuid=9f075aa8-c99f-4368-afe3-9940628e1dd4&url=%2FsendSms%2Fsent%2F&langUrl=%2Frus%2F&sendSmsSubmit=HTTP/1.1 302 

Вот теперь вопрос как можно с использованием твоего примера мне выдрать ещё и имя фаила без расширения и вставить его в параметр как в снифе publicGuid=
Я вот сижу и не могу доехать как это реализовать (
Етсть идей ?
Умные блин эти веб програмисты.. (( Но я думаю что наши програмисты круче  smile  (кним я себя не приписываю молодой я ещё в этом деле )

Это сообщение отредактировал(а) Anakin - 12.12.2007, 14:49
PM MAIL   Вверх
Anakin
Дата 12.12.2007, 14:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 192
Регистрация: 25.9.2006

Репутация: нет
Всего: нет



Нет Ишибочка расширения там нету там роста такой код:
Код

9f075aa8-c99f-4368-afe3-9940628e1dd4

Я осмотрелса ( домал что там ещё присутствует расширение.
а там просто этиа строка. и этаже строка используетса для верификации тоесть при отправке на сервис используетса эта строка.
PM MAIL   Вверх
Anakin
  Дата 12.12.2007, 16:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 192
Регистрация: 25.9.2006

Репутация: нет
Всего: нет



Так с вставкой и вытаскиванием этого кода я разобралса.
Спасибо за это In4matik.
Но есть один недостаток.
Вот Сниф правельного отправления:
Код

publicGuid=9f075aa8-c99f-4368-afe3-9940628e1dd4

А вот сниф моего:
Код

publicGuid=7c029710%2D5551%2D4e56%2D8fc1%2D5019c9471143

Видите разницу.
Вместо - между символами в строке ставитса это %2D
Пытаюсь отправить данные так:
Код

procedure TfrmMain.btn_sendsmsClick(Sender: TObject);
var
Post:TStrings;
Q:string;
pos1,pos2:integer;
begin
Application.ProcessMessages;
IdAnti.Process;
Post := TStringList.Create;
Post.Clear;
Post.Add('phonePrefix='+cmb_prefix.Text);
Post.Add('phoneNumber='+cmb_Phone.Text);
Post.Add('message='+m_sms.Text);
Post.Add('pictureCode='+edt_img.Text);
post.Add('type=sendSms');
post.Add('publicGuid='+ris);
post.Add('sendSmsSubmit');

Q := HTTP.Post('http://www.moldcell.md/rus/sendsms/',Post);
pos1 := pos('ОТправлено',Q);
if pos1<>0 then
begin
Application.MessageBox('Отправлено','sms',mb_OK);
end
else
begin
Application.MessageBox('Ошибка,'sms',mb_OK);
end;


Переменную ris я обявляю так:
Код


private
  ris: string;
    { Private declarations }

Подскажите что я делаю не так почему у меня вместо черточек появляютса эти символы (
PM MAIL   Вверх
MetalFan
Дата 12.12.2007, 18:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 14
Всего: 128



что-то у индей есть про hoForceEncodeParams... посмотри. убери ее

Это сообщение отредактировал(а) MetalFan - 12.12.2007, 18:40


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
In4matik
Дата 13.12.2007, 07:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 22
Регистрация: 4.7.2007
Где: Красноярск

Репутация: нет
Всего: 1



Цитата(Anakin @ 12.12.2007,  16:10)
Вот Сниф правельного отправления:
Код

publicGuid=9f075aa8-c99f-4368-afe3-9940628e1dd4

А вот сниф моего:
Код

publicGuid=7c029710%2D5551%2D4e56%2D8fc1%2D5019c9471143

Видите разницу.

Видим разницуsmile

Поснифил я немного этот сайт. 
Наблюдения:

Сниф №1:
Код

phonePrefix=373790&
phoneNumber=12345&
message=sooobchenie&
pictureCode=574851&
type=sendSms&
publicGuid=b020228c-144d-4423-afab-61b9a23bd634&
url=%2Fsendsms%2F&
langUrl=%2Frus%2F&
sendSmsSubmit=%D0%9E%D1%82%D0%BF%D1%80%D0%B0%D0%B2%D0%B8%D1%82%D1%8C

(конечно это всё одной строкой. я разделил, чтобы видно было)

Сниф №2
Код

phonePrefix=373790&
phoneNumber=11111&
message=%D0%A1%D0%BE%D0%BE%D0%B1%D1%89%D0%B5%D0%BD%D0%B8%D0%B5&
pictureCode=722255&
type=sendSms&
publicGuid=5464c792-f654-4d57-a8db-37750f750cb3&
url=%2FsendSms%2FerrorBadPost%2F&
langUrl=%2Frus%2F&
sendSmsSubmit=%D0%9E%D1%82%D0%BF%D1%80%D0%B0%D0%B2%D0%B8%D1%82%D1%8C

(здесь message=Сообщение) 

Таким образом, Диагноз сайту: "Кодировка UTM-8". Отсюда и все проблемы. Хорошо еще не КОИ8рsmile

Так что не расстрайвайся и делай вот такой пост:
Код

Post.Add('phonePrefix='+cmb_prefix.Text);
Post.Add('phoneNumber='+cmb_Phone.Text);
Post.Add('message='+m_sms.Text);
Post.Add('pictureCode='+edt_img.Text);
post.Add('type=sendSms');
post.Add('publicGuid='+ris);
post.Add('sendSmsSubmit=Отправить');


и еще сделай так чтобы в m_sms.text не было ни одного знака chr(13).

Добавлено через 2 минуты
Цитата(MetalFan @ 12.12.2007,  12:51)
Цитата(In4matik @  12.12.2007,  12:48 Найти цитируемый пост)
Application.ProcessMessages;

а это на кой?

Без этого никак не хотело работать smile 

На самом деле там на форме какие-то изменения делаются, не помню точно. это было давно и не правдаsmile
PM MAIL WWW ICQ   Вверх
Anakin
  Дата 13.12.2007, 09:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 192
Регистрация: 25.9.2006

Репутация: нет
Всего: нет



2 In4matik  всё сделал вроде как надо. кстате это:
Код

post.Add('sendSmsSubmit=Отправить');

не лечит программу (
вот два снифа
1) Оригинальный:
Код

phonePrefix=373791&
phoneNumber=33027&
message=test&
pictureCode=084108&
type=sendSms&
publicGuid=9f075aa8-c99f-4368-afe3-9940628e1dd4&
url=%2FsendSms%2Fsent%2F&
langUrl=%2Frus%2F&
sendSmsSubmit=HTTP/1.1 302 


А вот сниф программы.:
Код

phonePrefix=373791&
phoneNumber=33027&
message=test&
pictureCode=168226&
type=sendSms&
publicGuid=48c7fb25-d158-4da8-951f-b7c5b1aff318&
url=%2Fsendsms%2F&
langUrl=%2Frus%2F&
sendSmsSubmit&
HTTP/1.1 200 OK


Блин не поиму в чем дело (((
Код с картинкой видит всё нормально. 
Но вот отправлять не хочет (
Вот код отправки:
Код

Post.Add('phonePrefix='+cmb_prefix.Text);
Post.Add('phoneNumber='+cmb_Phone.Text);
Post.Add('message='+m_sms.Text);
Post.Add('pictureCode='+edt_img.Text);
post.Add('type=sendSms');
post.Add('publicGuid='+ris);
post.Add('url=%2Fsendsms%2F');
post.Add('langUrl=%2Frus%2F');
post.Add('sendSmsSubmits');


PM MAIL   Вверх
In4matik
Дата 13.12.2007, 09:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 22
Регистрация: 4.7.2007
Где: Красноярск

Репутация: нет
Всего: 1



Цитата(Anakin @ 13.12.2007,  09:38)
2 In4matik  всё сделал вроде как надо. кстате это:
Код

post.Add('sendSmsSubmit=Отправить');

не лечит программу (

ну не знаю тогда уже что и делать..

у меня снифер выдает всегда вот такой конец поста
Код

sendSmsSubmit=%D0%9E%D1%82%D0%BF%D1%80%D0%B0%D0%B2%D0%B8%D1%82%D1%8C


Я когда свою прогу делал, тоже с этим сталкивался, но не помню уже че я там намутил.

попробуй еще пост отправить как строку целую.

Код

var
s:string;
...

s:='';
s:='phonePrefix='+cmb_prefix.Text +'&';
s:=s+'phoneNumber='+cmb_Phone.Text+'&';
и т.д. и т.п.
s:=s+'sendSmsSubmit=Отправить';

потом post:)


PS: а с этого сайта вообще приходят сообщения?
PSS: еще забыл. там же эти. COOKIсы есть в посте. наверное тебе их и не хватает. 
попробуй другим снифером посмотреть. у меня IEWatch.
PM MAIL WWW ICQ   Вверх
MetalFan
Дата 13.12.2007, 11:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 14
Всего: 128



я знаю, как тебе помочь: выложи здесь тестовое приложение.
кста, хороший бесплатный сниффер - Fiddler2

Это сообщение отредактировал(а) MetalFan - 13.12.2007, 11:43


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
Anakin
Дата 13.12.2007, 12:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 192
Регистрация: 25.9.2006

Репутация: нет
Всего: нет



Вот пример программы.
Пробовал все варенты. но полюбому не получаетса (
Сверял снифы программы и сайта они едентичны но не отправляетса (
ПОдскажите в чем дело.


Присоединённый файл ( Кол-во скачиваний: 18 )
Присоединённый файл  SMS.rar 10,01 Kb
PM MAIL   Вверх
MetalFan
Дата 13.12.2007, 13:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 14
Всего: 128



класс. а правильный номер телефона для теста?


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
MetalFan
Дата 13.12.2007, 14:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 14
Всего: 128



мда, отлаживал то ты не то.
адрес странички то, на который пост-запрос посылается другой.
вот с такими модификациями все заработало:
Код

...
POst.Add( 'phonePrefix='+cmb_prefix.Text );
Post.Add('phoneNumber='+cmb_Phone.Text);
Post.Add('message='+m_sms.Text);
Post.Add('pictureCode='+edt_img.Text);
Post.Add('type=sendSms');
Post.Add('publicGuid='+ris);
Post.Add('url=%2Fsendsms%2F');
Post.Add('langUrl=%2Frus%2F');
Post.Add('sendSmsSubmit=');

Q := HTTP.Post('http://www.moldcell.md/xds/default.aspx',Post);
Q := UTF8Decode( Q );
pos1 := pos('Отправлено',Q);
...



--------------------
There are always someone smarter than you...
PM MAIL   Вверх
Anakin
Дата 13.12.2007, 14:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 192
Регистрация: 25.9.2006

Репутация: нет
Всего: нет



Номер для теста 373791 33027
Шас попробую исправить твою модификацию.

Добавлено через 6 минут и 59 секунд
Всё гуд СМС отправляетса.
НО есть последствия ((
После отправки СМС выходит окнос ошибкой HTTP/1.1 302 Found но СМС доходит.
И вторая теперь проблема.когда я переключаюсь на русскую раскладку клавы Сообщение приходит пустым (
Кажетса тут с кодировкой проблема.
PM MAIL   Вверх
MetalFan
Дата 13.12.2007, 14:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 14
Всего: 128



Цитата(Anakin @  13.12.2007,  14:14 Найти цитируемый пост)
выходит окнос ошибкой HTTP/1.1 302 Found но СМС доходит.

Код

  idHttp.AllowRedirects := true;



--------------------
There are always someone smarter than you...
PM MAIL   Вверх
Anakin
Дата 13.12.2007, 14:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 192
Регистрация: 25.9.2006

Репутация: нет
Всего: нет



Да ошибка устранилась. И Чьито СМС дошло  smile 
Но вот шас попробуйте отправить с русским текстом в СМС. и оно придёт пустым.
PM MAIL   Вверх
MetalFan
Дата 13.12.2007, 14:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 14
Всего: 128



Код

uses IdURI;
...
Post.Add('message='+TIdUri.ParamsEncode( UTF8Encode( m_sms.Text)));
...



--------------------
There are always someone smarter than you...
PM MAIL   Вверх
Anakin
Дата 13.12.2007, 15:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 192
Регистрация: 25.9.2006

Репутация: нет
Всего: нет



Да штука весёлая )) Делает Транслит хорошо.
Но я имел ввиду не транслит. 
А что бы в смс именно приходил русский текст.
С Сайта оператора он идёт..

Это сообщение отредактировал(а) Anakin - 13.12.2007, 15:10
PM MAIL   Вверх
MetalFan
Дата 13.12.2007, 15:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 14
Всего: 128



при чем тут транслит?


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
Anakin
Дата 13.12.2007, 15:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 192
Регистрация: 25.9.2006

Репутация: нет
Всего: нет



А притом что вот шас ктото опять пробовал отправить текст он дошел в таком виде:
russki yazik
а мне нуна так.
Русский язык

Попробую обьяснить.
Допустим в мемо я ввожу текст в таком виде:
Это Тест СМС
вот так он и должен придти.
а с использованием твоего примера он приходит так:
Eto test SMS
несмотря на то что я ввожу его на русском. (
PM MAIL   Вверх
MetalFan
Дата 13.12.2007, 16:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 14
Всего: 128



ну так разбирайся и/или создай отдельную тему. а то тут нафлудили уже не по делу


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
Anakin
Дата 13.12.2007, 16:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 192
Регистрация: 25.9.2006

Репутация: нет
Всего: нет



ОК.. Спасибо игромное за помошь......
Вы мне очень помогли...
PM MAIL   Вверх
WaReZMEN
Дата 15.1.2008, 07:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 683
Регистрация: 9.6.2006
Где: Россия, Санкт-Пет ербург

Репутация: нет
Всего: 3



А с этои как быть? 'https://images-ssl.sourceforge.net/images/icons/prj_d.png'

Код

          lStream := TMemoryStream.Create;
          jpg := TJPEGImage.Create;
           IdHTTP1.Get('https://images-ssl.sourceforge.net/images/icons/prj_d.png', lStream);

            lStream.Position := 0;
            jpg.LoadFromStream(lStream);
            Image1.Picture.Bitmap.Assign(jpg);


то что png и jpg  в даннои ситуаций не принципиально.

Это сообщение отредактировал(а) WaReZMEN - 15.1.2008, 08:59
PM MAIL ICQ   Вверх
MetalFan
Дата 15.1.2008, 09:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 14
Всего: 128



Цитата(WaReZMEN @  15.1.2008,  07:56 Найти цитируемый пост)
А с этои как быть?

как быть? TIdSSLIOOpenSocketSSL + пару dll и будет тебе счастие
либо WinInet или компоненты на его основе


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
WaReZMEN
Дата 15.1.2008, 12:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 683
Регистрация: 9.6.2006
Где: Россия, Санкт-Пет ербург

Репутация: нет
Всего: 3



MetalFan, а примерчик можно и что за dll (и де их взять) ?
PM MAIL ICQ   Вверх
MetalFan
Дата 15.1.2008, 12:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 14
Всего: 128



примерчик не дам - там все элементарно. просто назначаешь этот хэндлер idHTTP например. dll должны подходить под конкретную версию инди.
найти можно либо в инете, либо скачать с офсайта OpenSSL исходники и собрать самому(необходим компилятор C++)либо в установленных приложениях... я например нашел подходящие в свое время которые лежали в установленном FlashFXP


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
WaReZMEN
Дата 16.1.2008, 01:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 683
Регистрация: 9.6.2006
Где: Россия, Санкт-Пет ербург

Репутация: нет
Всего: 3



Пытаюсь заити на страницу

Код

  txt := IdHTTP1.Get('...14fb7f22-9817-4a7d-ab57-73fca4b4e418&sortBy=&bAsc=True');

А мне сообщение Range Check Error. Смотрю что успел получить там ява скрипт он потом формирует страницу... как быть подскажите?

Кстате пример с отправкои смс выдает такуюже ошибку... мож касяк в компаненте ? (Delphi 2006 версия indy 10.1.5)

Это сообщение отредактировал(а) WaReZMEN - 16.1.2008, 07:19
PM MAIL ICQ   Вверх
MetalFan
Дата 16.1.2008, 09:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 14
Всего: 128



что делать - посмотреть, что происходит внутри индейцев.
з.ы. у меня уже 10.2.3 уже давно стоит


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
WaReZMEN
Дата 16.1.2008, 09:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 683
Регистрация: 9.6.2006
Где: Россия, Санкт-Пет ербург

Репутация: нет
Всего: 3



MetalFan, а де взять то? на оф саите линка не нашел :(
PM MAIL ICQ   Вверх
MetalFan
Дата 16.1.2008, 09:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 14
Всего: 128





--------------------
There are always someone smarter than you...
PM MAIL   Вверх
WaReZMEN
Дата 16.1.2008, 09:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 683
Регистрация: 9.6.2006
Где: Россия, Санкт-Пет ербург

Репутация: нет
Всего: 3



MetalFan, та и не нашел... черт сним спс...  аеще вопрос как узнать что постит страница? ну тоесть я ввел код скартинки и нажимаю на кнопку отправить ... как это с эмулировать?

PM MAIL ICQ   Вверх
MetalFan
Дата 16.1.2008, 14:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 14
Всего: 128



создай чтоли отдельную тему или эту почитай


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
In4matik
Дата 17.1.2008, 06:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 22
Регистрация: 4.7.2007
Где: Красноярск

Репутация: нет
Всего: 1



Цитата(WaReZMEN @ 16.1.2008,  09:50)
как узнать что постит страница? ну тоесть я ввел код скартинки и нажимаю на кнопку отправить ... как это с эмулировать?

тебе нужна прога IEWatch (это снифер встраиваемый в интернет эксплоер). Я ей пользовался.
PM MAIL WWW ICQ   Вверх
WaReZMEN
Дата 17.1.2008, 09:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 683
Регистрация: 9.6.2006
Где: Россия, Санкт-Пет ербург

Репутация: нет
Всего: 3



In4matik, спасибо!

Результат снифа

Код

ctl00$MainContent$tbKod    1sqz
ctl00$MainContent$btVoting.y    15
ctl00$MainContent$btVoting.x    109
__VIEWSTATE    /wEPDwUJOTUwMzI1ODM4D2QWAmYPZBYCAgMPZBYGAgYPZBYEAgEPFgIeBFRleHQF5wI8YSBpZD0iaWRQUFNjYXJhYiIgaHJlZj0iaHR0cHM6Ly9sb2dpbi5saXZlLmNvbS9sb2dpbi5zcmY/d2E9d3NpZ25pbjEuMCZhbXA7cnBzbnY9MTAmYW1wO2N0PTEyMDA1NTAyNTImYW1wO3J2ZXI9NC41LjIxMjUuMCZhbXA7d3A9TUJJX1NTTCZhbXA7d3JlcGx5PWh0dHBzOiUyRiUyRm1zZmFpcnBsYXkucnUlMkZWb3RpbmcuYXNweCZhbXA7bGM9MTA0OSZhbXA7aWQ9MjU0MDY1Ij48aW1nIHNyYz0iaHR0cDovL3d3dy5wYXNzcG9ydGltYWdlcy5jb20vMTA0OS9zaWduaW4uZ2lmIiBjbGFzcz0iUGFzc3BvcnRTaWduSW4iIGFsdD0iV2luZG93cyBMaXZlIElEIiBzdHlsZT0iYm9yZGVyLXN0eWxlOm5vbmUiIGlkPSJpZFNJIi8 PC9hPmQCBQ8WAh4HVmlzaWJsZWgWCmYPFQEAZAIBDxUCAS0BLWQCAg8VAQBkAgMPFQEAZAIEDxUBPVJlZ2lzdGVyVXNlci5hc3B4P2RlamF2dT0wMDAwMDAwMC0wMDAwLTAwMDAtMDAwMC0wMDAwMDAwMDAwMDBkAgcPZBYQZg8PFgIfAAUEc2VyZ2RkAgEPFQJwUmVuZGVyVXNlckZvdG8uYXNweD9Vc2VySWQ9NjZhZTk1MWYtODQ1Mi00NGVjLWExYTItNTQ2ZTI2YWU2MDVkJkZvdG9UeXBlPTAmSXNUaHVtYm5haWw9dHJ1ZSZIZWlnaHQ9MjA1JldpZHRoPTE5OBx3aWR0aDogMTk4cHg7IGhlaWdodDogMTQ4cHg7ZAICDw8WAh8ABQIxNGRkAgMPDxYCHwAFAzMyN2RkAgcPDxYCHghJbWFnZVVybAU/SW1hZ2VHZW5lcmF0b3IuYXNweD9Vc2VySWQ9NjZhZTk1MWYtODQ1Mi00NGVjLWExYTItNTQ2ZTI2YWU2MDVkZGQCCQ8VAjNodHRwOi8vY2lkLTMxNzIzNjI3YTcxZjhiZTEuc3BhY2VzLmxpdmUuY29tL3Bob3Rvcy8zaHR0cDovL2NpZC0zMTcyMzYyN2E3MWY4YmUxLnNwYWNlcy5saXZlLmNvbS9waG90b3MvZAIKDxUKC3Zpc2liaWxpdHk6AjEycFJlbmRlclVzZXJGb3RvLmFzcHg/VXNlcklkPWU4ZDA2MzBjLWYyMTUtNDMwNi1hYmNlLTQxZGY4MmY4NzhmNyZGb3RvVHlwZT0wJklzVGh1bWJuYWlsPXRydWUmSGVpZ2h0PTEwMCZXaWR0aD0xMDALdmlzaWJpbGl0eToad2lkdGg6IDk5cHg7IGhlaWdodDogNzRweDsLdmlzaWJpbGl0eTpJVm90aW5nLmFzcHg/VXNlcklkPWU4ZDA2MzBjLWYyMTUtNDMwNi1hYmNlLTQxZGY4MmY4NzhmNyZzb3J0Qnk9JmJBc2M9VHJ1ZQt2aXNpYmlsaXR5OklWb3RpbmcuYXNweD9Vc2VySWQ9ZThkMDYzMGMtZjIxNS00MzA2LWFiY2UtNDFkZjgyZjg3OGY3JnNvcnRCeT0mYkFzYz1UcnVlC3Zpc2liaWxpdHk6ZAILDxUKC3Zpc2liaWxpdHk6AjExcFJlbmRlclVzZXJGb3RvLmFzcHg/VXNlcklkPTU3Yzg4YjNmLTM1NTctNGM3Yi1hNGI2LTU1YjNjZDdiY2Q3ZSZGb3RvVHlwZT0wJklzVGh1bWJuYWlsPXRydWUmSGVpZ2h0PTEwMCZXaWR0aD0xMDALdmlzaWJpbGl0eToad2lkdGg6IDk5cHg7IGhlaWdodDogNzRweDsLdmlzaWJpbGl0eTpJVm90aW5nLmFzcHg/VXNlcklkPTU3Yzg4YjNmLTM1NTctNGM3Yi1hNGI2LTU1YjNjZDdiY2Q3ZSZzb3J0Qnk9JmJBc2M9VHJ1ZQt2aXNpYmlsaXR5OklWb3RpbmcuYXNweD9Vc2VySWQ9NTdjODhiM2YtMzU1Ny00YzdiLWE0YjYtNTViM2NkN2JjZDdlJnNvcnRCeT0mYkFzYz1UcnVlC3Zpc2liaWxpdHk6ZAIID2QWAmYPFQI2Rmxhc2gvRmxhc2hHUy5zd2Y/ODY4MTQ2NjgtMzFkMC00NTdjLWJiMjYtYmM1ZDc5ODUyYmQ4NkZsYXNoL0ZsYXNoR1Muc3dmPzhmZmM0ODgwLTZkMzgtNDNkNi05NmNmLTkxYzJhOWFjOTI1MGQYAQUeX19Db250cm9sc1JlcXVpcmVQb3N0QmFja0tleV9fFgEFGmN0bDAwJE1haW5Db250ZW50JGJ0Vm90aW5nDs9HmF6k8rTxNqkiHviGy ylH1U=
__EVENTVALIDATION    /wEWCALty7HVCgLz54S7DQKy1sbvCwKW36MHAr/fl6MHAuKR9N8MAs/mrJ8FAtXei9MBNVutIBbW6CMd4b/XiYGTr8EhCkI=
__EVENTTARGET    
__EVENTARGUMENT    


Это сообщение отредактировал(а) WaReZMEN - 17.1.2008, 09:25
PM MAIL ICQ   Вверх
In4matik
Дата 19.1.2008, 08:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 22
Регистрация: 4.7.2007
Где: Красноярск

Репутация: нет
Всего: 1



Цитата(WaReZMEN @ 17.1.2008,  09:06)
In4matik, спасибо!

Результат снифа

Ух ты! smile
А что за страничка? дай адресок.
PM MAIL WWW ICQ   Вверх
eViperEA
Дата 18.3.2008, 08:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 71
Регистрация: 13.3.2008

Репутация: нет
Всего: нет



Возник вопрос ... Как вывести на форму картинку которая автоматически меняется и урл на нее один и тот же... и сохранить его таким для авторизации..
Код

<tr><td class="midtext">Username:</td><td>
<input type="text" name="COOKIEusername" size="25" class="form" autocomplete="off"></td></tr>
                    <tr><td class="midtext">Password:</td><td>
<input type="password" name="COOKIEpass" size="25" class="form" autocomplete="off"></td></tr>
                    <tr><td class="midtext" valign="top">Security Code:</td><td class="midtext">
<img src="captcha/imagebuilder.php" onclick="this.src='captcha/imagebuilder.php?newtime=' + (new Date()).getTime();">
(Click to reload)<br />
<input type="text" name="verify" size="17" maxlength="17" autocomplete="off" class="form"></td></tr>
                    <tr><td></td><td align="right">
<input type="submit" value="Login" name="loginsubmit" class="form"></td></tr>
                    </table></td>
                    </td>


Это сообщение отредактировал(а) eViperEA - 18.3.2008, 08:34
PM MAIL   Вверх
eViperEA
Дата 18.3.2008, 19:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 71
Регистрация: 13.3.2008

Репутация: нет
Всего: нет



помогите разобраться что означает ... 
onclick="this.src='captcha/imagebuilder.php?newtime=' + (new Date()).getTime(); 
в коде картинки ... и как ее можно выдернуть в ту форму во время ее загрузки.. 

PM MAIL   Вверх
eViperEA
Дата 19.3.2008, 05:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 71
Регистрация: 13.3.2008

Репутация: нет
Всего: нет



попробовал вот такую программу 
Код

procedure TForm1.Button1Click(Sender: TObject);
const
C_Url='http://server.com/image.php?';
var
  MS: TMemoryStream;
  jpg: TJPEGImage;
begin
IdHTTP1.Get(C_Url,MS);
MS.Position := 0;
jpg.LoadFromStream(MS);
Image1.Picture.Bitmap.Assign(jpg);
end;
end.

она мне выдает ошибку  smile 
Access violation at address 00404DBB in module 'Project1.exe'. Read of address 00000001.
В чем проблема не подскажите? smile 

Это сообщение отредактировал(а) eViperEA - 19.3.2008, 05:30
PM MAIL   Вверх
Qu1nt
Дата 19.3.2008, 18:52 (ссылка) |   (голосов:2) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 602
Регистрация: 13.1.2007

Репутация: 2
Всего: 50



Не забывай создавать обьекты. Удалять тоже.
PM MAIL   Вверх
eViperEA
  Дата 20.3.2008, 19:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 71
Регистрация: 13.3.2008

Репутация: нет
Всего: нет



А можно пожалуйста по подробнее  объяснить какие именно? может есть какой нибудь вариант сохранить на диск имеено эту картинку (вывести ее в форму) и отправить ее на сайт..?

Это сообщение отредактировал(а) eViperEA - 20.3.2008, 19:54
PM MAIL   Вверх
vovksextra
Дата 21.3.2008, 17:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 29
Регистрация: 15.2.2008

Репутация: нет
Всего: нет



Цитата(eViperEA @ 19.3.2008,  05:25)
попробовал вот такую программу 
Код

procedure TForm1.Button1Click(Sender: TObject);
const
C_Url='http://server.com/image.php?';
var
  MS: TMemoryStream;
  jpg: TJPEGImage;
begin
IdHTTP1.Get(C_Url,MS);
MS.Position := 0;
jpg.LoadFromStream(MS);
Image1.Picture.Bitmap.Assign(jpg);
end;
end.

она мне выдает ошибку  smile 
Access violation at address 00404DBB in module 'Project1.exe'. Read of address 00000001.
В чем проблема не подскажите? smile

Как минимум перед MS.Position := 0;

не мешело бы сделать что-то типа того  MS:=TMemoryStream.Cre............ )))


и где далее MS.free

Это сообщение отредактировал(а) vovksextra - 21.3.2008, 17:29
PM MAIL   Вверх
eViperEA
Дата 21.3.2008, 19:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 71
Регистрация: 13.3.2008

Репутация: нет
Всего: нет



Попробовал добавить то что ты порекомендовал но все равно эта ошибка вылазиет
Код

procedure TForm1.Button1Click(Sender: TObject);
const
C_Url='http://server.com/image.php?';
var
  MS: TMemoryStream;
  jpg: TJPEGImage;
begin
 IdHTTP1.Get(C_Url,MS);
 MS:=TMemoryStream.Create;
            MS.Position := 0;
            jpg.LoadFromStream(MS);
            Image1.Picture.Bitmap.Assign(jpg);
            MS.free;
          end;

 smile 
PM MAIL   Вверх
Qu1nt
Дата 21.3.2008, 20:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 602
Регистрация: 13.1.2007

Репутация: 2
Всего: 50



Блин, а TJPEGImage?!
Код

jpg := TJPEGImage.Create;

PM MAIL   Вверх
eViperEA
Дата 22.3.2008, 05:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 71
Регистрация: 13.3.2008

Репутация: нет
Всего: нет



Цитата(Qu1nt @ 21.3.2008,  20:28)
Блин, а TJPEGImage?!
Код

jpg := TJPEGImage.Create;

тоже не помогает уже пробовал... smile 
PM MAIL   Вверх
vovksextra
Дата 22.3.2008, 18:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 29
Регистрация: 15.2.2008

Репутация: нет
Всего: нет



Цитата(eViperEA @ 22.3.2008,  05:19)
Цитата(Qu1nt @ 21.3.2008,  20:28)
Блин, а TJPEGImage?!
Код

jpg := TJPEGImage.Create;

тоже не помогает уже пробовал... smile

 IdHTTP1.Get(C_Url,MS);
 MS:=TMemoryStream.Create;

нужно так ))

 MS:=TMemoryStream.Create;
 IdHTTP1.Get(C_Url,MS);

PM MAIL   Вверх
eViperEA
Дата 22.3.2008, 19:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 71
Регистрация: 13.3.2008

Репутация: нет
Всего: нет



Проблема с выводом картинки решена но я не знаю как ее загрузить во время регистрации на сайте ...
и как сделать поле чтоб вводить в него то что отправится на сайт...
так я беру картинку ... 
Код

procedure TForm1.Button1Click(Sender: TObject);
const
C_Url='http://server.ru/image.php?';
var
  MS: TMemoryStream;
  jpg: TJPEGImage;
begin
MS:=TMemoryStream.Create;
jpg:= TJPEGImage.Create;
IdHTTP1.Get(C_Url,MS);
MS.Position := 0;
jpg.LoadFromStream(MS);
Image1.Picture.Bitmap.Assign(jpg);
MS.free;
jpg.Free;
end;

а так я отправляю на сайт заполненые поля..(для регистрации)
Код

procedure TForm1.Button1Click(Sender: TObject);
var
S: TStringList;
begin
S:= TStringList.Create;
S.Add('login=eViper');
S.Add('password=xxx');
S.Add('code=');
memo1.Text:=IdHTTP1.Post('http://server.ru/index.php?t=login&', S);
memo1.lines.savetofile('c:\test.html');
end;

S.Add('code='); мне надо написать что то чтоб "форма" которую я направлю на сайт "зарегистрировала" меня.. Но  я не могу понять 1 как загрузить сайт регистрации и чтоб картинка осталась таже ... и 2 как мне присвоить S.Add('code='); значение которое на картинке...

Это сообщение отредактировал(а) eViperEA - 25.3.2008, 12:28
PM MAIL   Вверх
eViperEA
Дата 25.3.2008, 12:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 71
Регистрация: 13.3.2008

Репутация: нет
Всего: нет



вот то что надо заполнять... в форме
Код

<tr><td class="midtext">Username:</td><td>
<input type="text" name="COOKIEusername" size="25" class="form" autocomplete="off"></td></tr>
                    <tr><td class="midtext">Password:</td><td>
<input type="password" name="COOKIEpass" size="25" class="form" autocomplete="off"></td></tr>
                    <tr><td class="midtext" valign="top">Security Code:</td><td class="midtext">
<img src="captcha/imagebuilder.php" onclick="this.src='captcha/imagebuilder.php?newtime=' + (new Date()).getTime();">
(Click to reload)<br />
<input type="text" name="verify" size="17" maxlength="17" autocomplete="off" class="form"></td></tr>
                    <tr><td></td><td align="right">
<input type="submit" value="Login" name="loginsubmit" class="form"></td></tr>
                    </table></td>
                    </td>

PM MAIL   Вверх
eViperEA
Дата 27.3.2008, 15:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 71
Регистрация: 13.3.2008

Репутация: нет
Всего: нет



С картинкой я разобрался как мне теперь ввести ее код в Edit1 
S.Add('code=');?
PM MAIL   Вверх
vovksextra
Дата 28.3.2008, 01:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 29
Регистрация: 15.2.2008

Репутация: нет
Всего: нет



Цитата(eViperEA @ 27.3.2008,  15:59)
С картинкой я разобрался как мне теперь ввести ее код в Edit1 
S.Add('code=');?

Если было-бы все так просто - картинки бы не ставили.

А теперь по делу - все элементарно просто.

Отправляешь свою картинку в СОРО (система оптического распознавания образов) , и получаешь код ))


PM MAIL   Вверх
eViperEA
Дата 28.3.2008, 07:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 71
Регистрация: 13.3.2008

Репутация: нет
Всего: нет



я и не собираюсь легко с ней справляться мне просто надо ввести в ручную то что на картинке и отправить заполненную форму на серв.. тоесть сам распознаю картинку... Вопрос в другом как мне из Edit1 в строчку S.Add('code='); перенести значение?
PM MAIL   Вверх
vovksextra
Дата 28.3.2008, 10:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 29
Регистрация: 15.2.2008

Репутация: нет
Всего: нет



Цитата(eViperEA @ 28.3.2008,  07:28)
я и не собираюсь легко с ней справляться мне просто надо ввести в ручную то что на картинке и отправить заполненную форму на серв.. тоесть сам распознаю картинку... Вопрос в другом как мне из Edit1 в строчку S.Add('code='); перенести значение?

Так ?

Код

S.Add('code='+Edit1.Text);

PM MAIL   Вверх
eViperEA
Дата 28.3.2008, 10:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 71
Регистрация: 13.3.2008

Репутация: нет
Всего: нет



ой сори я вместо edit1.text писал edit1!!! Cпасибо со всем разобрался...!!! smile 
PM MAIL   Вверх
eViperEA
Дата 1.4.2008, 07:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 71
Регистрация: 13.3.2008

Репутация: нет
Всего: нет



На нескольких сайтах он при обработке изображения мне выдает ошибку JPEG error #53 
Что ему не нравится?
Код

procedure TForm1.FormCreate(Sender: TObject);
const
C_Url='http://server.ru/image.php?';
var
  MS: TMemoryStream;
  jpg: TJPEGImage;
begin
x:=0;
MS:=TMemoryStream.Create;
jpg:= TJPEGImage.Create;
IdHTTP1.Get(C_Url,MS);
MS.Position := 0;
jpg.LoadFromStream(MS);
Image1.Picture.Bitmap.Assign(jpg);
MS.free;
jpg.Free;
end;

PM MAIL   Вверх
Qu1nt
Дата 1.4.2008, 12:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 602
Регистрация: 13.1.2007

Репутация: 2
Всего: 50



Дык, значит картинка другого формата smile 
PM MAIL   Вверх
Diamond1309
Дата 4.5.2008, 17:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 1
Регистрация: 4.5.2008

Репутация: нет
Всего: нет



2eViperEA:

узнаю код странички)))) я тоже пытаюсь сделать такую же прогу, что и ты. С картинками у мня все норм. Вот только никак не могу авторизоваться. post-запрос как-то вроде не правильно работает

Делаю так (Indy10, Delphi7):
Код

var s:TStringList;
    f:textfile;
begin
      s:=TStringList.Create;
      s.Add('COOKIEusername='+Edit1.Text);
      s.Add('&COOKIEpass='+Edit2.Text);
      s.Add('&verify='+Edit3.Text);
      assignfile(f,'C:\1.html');
      rewrite(f);
      memo1.Text:=idhttp.Post('http://server.com/login.php?', s);
      write(f,memo1.text);
      closefile(f);
end;


в итоге получаю ту же страничку авторизации хотя HandleRedirect=true, CookieManager подключен. 
В чем моя ошибка? как можно прослушать что отправляет браузер?
PM MAIL   Вверх
Qu1nt
Дата 4.5.2008, 19:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 602
Регистрация: 13.1.2007

Репутация: 2
Всего: 50



Посмотри, что отправляет браузер и, что отправляешь ты... (с)
PM MAIL   Вверх
darkmamba
Дата 1.6.2009, 12:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 98
Регистрация: 16.10.2008

Репутация: 1
Всего: 1



Подскажите как быть в таком случае, когда ссылка на картинку неявная, а вместо нее хэш.
Код такой:

Код

  M : TMemoryStream;
begin
  M := TMemoryStream.Create;
  http.Get('http://XXXXXXXX.ru/image.php?type=regcheck&imagehash=a3b2b3b1d75b524e49280b7efb1e3dab', M);
  M.Position := 0;
  M.SaveToFile('G:\1.jpg');
  M.Free;


Картинка сохраняется в 1 пиксель. Хотя браузер все нормально видит. Если вместа хеша будет ссылка типа http://XXXXXXXX.ru/image.php?type=regcheck&image.jpg (или другой рисунок) то сохраняется все нормально... варианты кончились  smile 
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Сети | Следующая тема »


 




[ Время генерации скрипта: 0.2943 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.