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

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

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

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 23.04.2008, 23:43   #1
Editor
Пользователь
 
Аватар для Editor
 
Регистрация: 19.04.2008
Сообщений: 52
Плохо Как загрузить картинку?

Как загрузить картинку с сервера и поместить её в Timage с использование компонента TClientSocket?
Editor вне форума Ответить с цитированием
Старый 24.04.2008, 12:56   #2
Dj_smart
Капсула от спама
Форумчанин
 
Аватар для Dj_smart
 
Регистрация: 04.03.2008
Сообщений: 779
Радость

Есть один вариант:

Код:
function DownloadFile(SourceFile, DestFile: string): Boolean; 
begin 
  try 
    Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
  except 
    Result := False; 
  end; 
end;

procedure TForm1.Button1Click(Sender: TObject);
const
  SourceFile = 'http:/www.yoursite.ru/yourimage.jbmp;
  DestFile = 'c:\downdloadedimege.bmp';
var any:boolean;
begin
  if DownloadFile(SourceFile, DestFile) then any:=true;
  Form1.image1.picture.loadFromFile('C:\downdloadedimege.bmp');
end;
Если данный ответ не столь конкретен, как Вы желаете его увидеть, возможно необходимо поразмыслить, стоит ли вопрос того, чтобы о нём спрашивать на форуме?
CncFiles.ru - бесплатный файловый хостинг
Dj_smart вне форума Ответить с цитированием
Старый 24.04.2008, 13:12   #3
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
UrlDownloadToFile
Сказал бы уж где ж ее найти?
А лежит она в UrlMon
I'm learning to live...

Последний раз редактировалось Stilet; 24.04.2008 в 13:22.
Stilet вне форума Ответить с цитированием
Старый 24.04.2008, 14:38   #4
Dj_smart
Капсула от спама
Форумчанин
 
Аватар для Dj_smart
 
Регистрация: 04.03.2008
Сообщений: 779
Счастье

Ну, да, сказать забыл
Если данный ответ не столь конкретен, как Вы желаете его увидеть, возможно необходимо поразмыслить, стоит ли вопрос того, чтобы о нём спрашивать на форуме?
CncFiles.ru - бесплатный файловый хостинг
Dj_smart вне форума Ответить с цитированием
Старый 26.04.2008, 02:25   #5
Editor
Пользователь
 
Аватар для Editor
 
Регистрация: 19.04.2008
Сообщений: 52
По умолчанию

НЕ ПАШЕТ(((
Editor вне форума Ответить с цитированием
Старый 26.04.2008, 02:53   #6
Dj_smart
Капсула от спама
Форумчанин
 
Аватар для Dj_smart
 
Регистрация: 04.03.2008
Сообщений: 779
По умолчанию

В каком смысле? Напиши причину ошибки...
Если данный ответ не столь конкретен, как Вы желаете его увидеть, возможно необходимо поразмыслить, стоит ли вопрос того, чтобы о нём спрашивать на форуме?
CncFiles.ru - бесплатный файловый хостинг
Dj_smart вне форума Ответить с цитированием
Старый 26.04.2008, 04:19   #7
Editor
Пользователь
 
Аватар для Editor
 
Регистрация: 19.04.2008
Сообщений: 52
По умолчанию

[DCC Error] Unit1.pas(30): E2003 Undeclared identifier: 'UrlDownloadToFile'
[DCC Warning] Unit1.pas(30): W1023 Comparing signed and unsigned types - widened both operands
[DCC Error] Unit1.pas(38): E2052 Unterminated string
[DCC Error] Unit1.pas(39): E2029 ';' expected but identifier 'DestFile' found
[DCC Error] Project1.dpr(5): F2063 Could not compile used unit 'Unit1.pas'
Editor вне форума Ответить с цитированием
Старый 26.04.2008, 04:48   #8
Dj_smart
Капсула от спама
Форумчанин
 
Аватар для Dj_smart
 
Регистрация: 04.03.2008
Сообщений: 779
Радость

Ой! Я сколько ошибок выложил...

Ты модуль UrlMon подключил?

Поставь перед самим первым var:

const
SourceFile = 'http:/www.yoursite.ru/yourimage.bmp';
DestFile = 'c:\downdloadedimege.bmp';

И подправь:

procedure TForm1.Button1Click(Sender: TObject);
var any:boolean;
begin
if DownloadFile(SourceFile, DestFile) then any:=true;
Form1.image1.picture.loadFromFile(' C:\downdloadedimege.bmp');
end;

Ошибок быть не должно
Если данный ответ не столь конкретен, как Вы желаете его увидеть, возможно необходимо поразмыслить, стоит ли вопрос того, чтобы о нём спрашивать на форуме?
CncFiles.ru - бесплатный файловый хостинг
Dj_smart вне форума Ответить с цитированием
Старый 27.04.2008, 17:40   #9
Editor
Пользователь
 
Аватар для Editor
 
Регистрация: 19.04.2008
Сообщений: 52
По умолчанию

Dj_smart всё заработало...Огромное спасибо...
Editor вне форума Ответить с цитированием
Старый 15.07.2008, 22:13   #10
Черничный
Форумчанин
 
Регистрация: 27.01.2007
Сообщений: 293
По умолчанию

А как можно вот здесь качать фаил не на винт, а в TStream? и уже и памяти грузить фаил в Timage

Последний раз редактировалось Черничный; 15.07.2008 в 22:47.
Черничный вне форума Ответить с цитированием
Ответ


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

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

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как загрузить форму с DLL SeRhy Общие вопросы Delphi 7 18.11.2008 21:05
Загрузить картинку из файла jpg в hbitmap romets Win Api 5 15.08.2008 02:51
Закинуть картинку в ADO Disday БД в Delphi 0 21.04.2008 01:00
из интернета картинку в имедж загрузить? Лёка Работа с сетью в Delphi 4 13.01.2008 14:35
Как загрузить HTM-страничку? Jen_13 Помощь студентам 3 27.04.2007 15:50