Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.05.2010, 18:32   #1
Smagulov85
Форумчанин
 
Аватар для Smagulov85
 
Регистрация: 22.11.2009
Сообщений: 142
По умолчанию опять она - капча

всем привет!! такая проблема капча загружается вида

Код:
http://www.sayt.ru/LanapCaptcha.aspx?get=image&c=vote_capcha&t=c178c190c91b4bd998a7581bcba29b26&s=XwJXZSr6swqVBh24xmTB6fcoQbZHkkp0AhDfh5oAEJM%3d
пытаюсь загнать ее в Image1 вот так

Код:
idHTTP1.Get('http://www.sayt.ru/'+edit1.text);
stream.savetofile(ExtractFilePath(Application.ExeName)+'LanapCaptcha.jpeg');

stream.free;
image1.picture.loadfromfile(ExtractFilePath(Application.ExeName)+'LanapCaptcha.jpeg');
в edit записывает новый адрес капчи

но при папытки выгрузить он выдает ошибку и картинка сам не показывается при просмотре см. скины
Изображения
Тип файла: jpg error1.jpg (29.3 Кб, 120 просмотров)
Тип файла: jpg error.jpg (7.9 Кб, 124 просмотров)
Если помог: Нажми Весы и оставь отзыв!!!
Smagulov85 вне форума Ответить с цитированием
Старый 18.05.2010, 18:39   #2
Pasha_Sh
Форумчанин
 
Аватар для Pasha_Sh
 
Регистрация: 16.05.2010
Сообщений: 137
По умолчанию

Ну естественно не будет работать vote_capcha&t= ты ввоишь в эдит, а значение всегда генерируется. Юзай Pos, Copy
osu
Pasha_Sh вне форума Ответить с цитированием
Старый 18.05.2010, 18:40   #3
Виталий Желтяков
Старожил
 
Аватар для Виталий Желтяков
 
Регистрация: 19.04.2010
Сообщений: 2,702
По умолчанию

Возможно, что капча имеет формат не jpeg, png. Проверьте.
Виталий Желтяков вне форума Ответить с цитированием
Старый 18.05.2010, 18:51   #4
Smagulov85
Форумчанин
 
Аватар для Smagulov85
 
Регистрация: 22.11.2009
Сообщений: 142
По умолчанию

Цитата:
Сообщение от Pasha_Sh Посмотреть сообщение
Ну естественно не будет работать vote_capcha&t= ты ввоишь в эдит, а значение всегда генерируется. Юзай Pos, Copy
у меня в edit через pos водиться новый адрес капчи
Если помог: Нажми Весы и оставь отзыв!!!
Smagulov85 вне форума Ответить с цитированием
Старый 18.05.2010, 18:52   #5
Smagulov85
Форумчанин
 
Аватар для Smagulov85
 
Регистрация: 22.11.2009
Сообщений: 142
По умолчанию

Цитата:
Сообщение от Виталий Желтяков Посмотреть сообщение
Возможно, что капча имеет формат не jpeg, png. Проверьте.
я только как не сохранял уже и bmp и png и jpg может я чет не дописал в uses
Если помог: Нажми Весы и оставь отзыв!!!
Smagulov85 вне форума Ответить с цитированием
Старый 18.05.2010, 19:03   #6
Pasha_Sh
Форумчанин
 
Аватар для Pasha_Sh
 
Регистрация: 16.05.2010
Сообщений: 137
По умолчанию

Сама картинка то сохраняется?
osu
Pasha_Sh вне форума Ответить с цитированием
Старый 18.05.2010, 19:46   #7
Smagulov85
Форумчанин
 
Аватар для Smagulov85
 
Регистрация: 22.11.2009
Сообщений: 142
По умолчанию

Цитата:
Сообщение от Pasha_Sh Посмотреть сообщение
Сама картинка то сохраняется?
файл какатой сохраняется он открыть его нельзя
Если помог: Нажми Весы и оставь отзыв!!!
Smagulov85 вне форума Ответить с цитированием
Старый 18.05.2010, 21:05   #8
Pasha_Sh
Форумчанин
 
Аватар для Pasha_Sh
 
Регистрация: 16.05.2010
Сообщений: 137
По умолчанию

Ответ почему не грузится в твоём сообщении
osu
Pasha_Sh вне форума Ответить с цитированием
Старый 18.05.2010, 21:37   #9
Smagulov85
Форумчанин
 
Аватар для Smagulov85
 
Регистрация: 22.11.2009
Сообщений: 142
По умолчанию

Цитата:
Сообщение от Pasha_Sh Посмотреть сообщение
Ответ почему не грузится в твоём сообщении
не понял
Если помог: Нажми Весы и оставь отзыв!!!
Smagulov85 вне форума Ответить с цитированием
Старый 18.05.2010, 22:57   #10
Smagulov85
Форумчанин
 
Аватар для Smagulov85
 
Регистрация: 22.11.2009
Сообщений: 142
По умолчанию

все сделал вот так!!

Код:
var Captcha : TJPEGImage;
F_body : TMemoryStream;
MyIdHTTP : TIdHTTP;
begin
MyIdHTTP:=TIdHTTP.Create(Self);
F_body := TMemoryStream.Create;
Captcha:=TJPEGImage.Create;
try
MyIdHTTP.Get('http://www.sayt.ru/LanapCaptcha.aspx?'+edit1.text, F_body);
F_body.Seek(0, soFromBeginning);
Captcha.LoadFromStream(F_body);
Captcha.SaveToFile('Captcha.jpg');
image1.picture.loadfromfile('Captcha.jpg');
finally
F_body.Free;
Captcha.Free;
end;
Если помог: Нажми Весы и оставь отзыв!!!
Smagulov85 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
капча, раделение символов BARNEY Общие вопросы Delphi 4 06.04.2010 13:07
Капча Astron Работа с сетью в Delphi 2 16.03.2010 15:44
Не отображается капча texno777 PHP 1 25.07.2009 21:46
капча DeDoK Работа с сетью в Delphi 9 09.07.2009 00:02
И опять мэйлы.. Опять... Pusher PHP 6 28.06.2008 03:08