Форум по программированию Delphi Sources

 



Вернуться   Форум по программированию Delphi Sources > Все о Delphi > Интернет и сети
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 01.08.2010, 10:32
maisdanel maisdanel вне форума
Прохожий
 
Регистрация: 06.01.2010
Сообщения: 3
Репутация: 10
По умолчанию Как скачать img из интернета и сохранить на C:\my.jpg ?

Еслы ссилка такая на
http://i73.odnoklassniki.ru/getImage...70&photoType=0
Ответить с цитированием
  #2  
Старый 01.08.2010, 14:35
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59585
По умолчанию

Код:
procedure TForm1.FormCreate(Sender: TObject);
var
  IdHTTP1: TIdHTTP;
  memorystream: TMemoryStream;
  jpegimage: TJPEGImage;
begin
  IdHTTP1:=TIdHTTP.Create(Self);
  memorystream:=TMemoryStream.Create;
  jpegimage:=TJPEGImage.Create;
  try
    IdHTTP1.Get('http://i73.odnoklassniki.ru/getImage?photoId=227021476870&photoType=0', memorystream);
    memorystream.Position:=0;
    jpegimage.LoadFromStream(memorystream);
    jpegimage.SaveToFile('c:\Downloads\my.jpg');
  finally
    jpegimage.Free;
    memorystream.Free;
    IdHTTP1.Free;
  end;
end;
Ответить с цитированием
  #3  
Старый 18.08.2010, 10:07
babajko babajko вне форума
Прохожий
 
Регистрация: 18.08.2010
Сообщения: 1
Репутация: 10
По умолчанию

а если на сайте несколько рисунков как можна сохратить тот которий мне нужен (имя ево я знаю)
вот код:
Код:
<form action="." method="post" class="forms_edit" id="voteserver_frm"><input name="PHPSESSID" value="4bfcc97969dd2652dbf5007b3f14a6b8" type="hidden">
<div id="vote_for_server">
	<div class="vote_server_title" style="width: 190px;">
		<div class="vote_server_title_text">i?iaieiniaaou ca na?aa?</div>

		<div class="vote_server_title_r"></div>
	</div>
	
	<div class="vote_server_box" style="width: 100%;">
		<div class="vote_server_box_text">Asterios</div>
		<div class="vote_server_box_r"></div>
	</div>

	<div class="rounded_block_01">
		<div class="tl"><div class="tr"></div></div>

		
		<div class="vote_server_text">
			<div>
				<div style="float: left;">
					<label>aaaaeoa eia caueou:</label>
					<input name="captcha" class="vote_server_tbox" value="" style="width: 175px;" type="text">
				</div>
				
				
				<div style="float: left; margin-top: 36px;">
					<a class="captcha" title="Iaiiaeou" href="#" onclick="$('#captcha').attr('src','http://la2.mmotop.ru/lib/securimage/securimage_show.php?' + Math.random());return false;">

					<img id="captcha" src="http://la2.mmotop.ru/lib/securimage/securimage_show.php" border="0"></a>
					<a href="http://la2.mmotop.ru/vote/9411/@?PHPSESSID=4bfcc97969dd2652dbf5007b3f14a6b8" onclick="$('#captcha').attr('src','http://la2.mmotop.ru/lib/securimage/securimage_show.php?' + Math.random());return false;" class="reload_captcha"><img src="index/ico_reload.gif"></a>
				</div>
				
				
				
			</div>
			<div class="clear"></div>
						<div>
				<label>aaaaeoa eiy aaoaai ia?niia?a:</label>
				<input name="votes_charname" value="" class="vote_server_tbox" style="width: 370px;" type="text">

				<img src="index/ico_man.gif" class="vote_server_char">
			</div>
						<div>
				<label>auaa?eoa na?aa?, ia eioi?ii ea?aaoa:</label>
				<select name="votes_server" class="vote_server_tbox" style="width: 100%;">
										<option value="5057" selected="selected">Hunter</option>
									</select>
			</div>

			
		</div>
		<div class="bl"><div class="br"></div></div>
	</div>
	<div class="button_vote_server">
		<a href="#" onclick="$('#voteserver_frm').submit(); return false;">Aieiniaaou</a>
	</div> 
</div>
</form>


вот место откуда рисунок берётся
Код:
...<img id="captcha" src="http://la2.mmotop.ru/lib/securimage/securimage_show.php" border="0">...

Последний раз редактировалось babajko, 18.08.2010 в 10:33.
Ответить с цитированием
  #4  
Старый 18.08.2010, 10:33
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59585
По умолчанию

добавить:
Код:
uses
  jpeg, IdHTTP, ...
Ответить с цитированием
Ответ



RAD Studio XE8

Комплексное решение для разработки программного обеспечения, ускоряющее проектирование, программирование и создание взаимодействующих приложений для Windows, Mac, iOS, Android и IoT. Создавайте готовые решения корпоративного класса, включая разные клиентские native-платформы, мобильные расширения, умные устройства, облачные службы, корпоративные и встроенные базы данных.


Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 15:34.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources", 2004-2018

ВКонтакте   Facebook   Twitter