изображения из интернета

[roulis2844sasha]

вот нашел я код

function TForm2.GetImage(url:string): TPicture;
var
  hInternet, hConnect: pointer;
  dwBytesRead, i, L: cardinal;
  sTemp,aUrl: AnsiString; // текст страницы
  memStream: TMemoryStream;
  jpegimg: TJPEGImage;
begin
  hInternet := InternetOpen('MyApp', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  try
    if Assigned(hInternet) then
    begin
      hConnect := InternetOpenUrl(hInternet, PChar(url), nil, 0, 0, 0);
      if Assigned(hConnect) then
        try
          i := 1;
          repeat
            SetLength(sTemp, L + i);
            if not InternetReadFile(hConnect, @sTemp[i], sizeof(L),dwBytesRead) then
              break; // Получаем данные с сервера
            inc(i, dwBytesRead);
            until dwBytesRead = 0;
        finally
          InternetCloseHandle(hConnect);
        end;
    end;
  finally
    InternetCloseHandle(hInternet);
  end;
  memStream := TMemoryStream.Create;
  jpegimg := TJPEGImage.Create;
  try
    memStream.Write(sTemp[1], Length(sTemp));
    memStream.Position := 0;
    //загрузка изображения из потока
    jpegimg.LoadFromStream(memStream);
    Result:=TPicture.Create;
    Result.Assign(jpegimg);
  finally
    //очистка
    memStream.Free;
    jpegimg.Free;
  end;
end;

вызывается так

GetImage('ссылка на изображение');

работает отлично, но как сделать чтоб работало и для bmp, png, gif
если пользователь укажет в виде аватарки например картинку с расширением gif то выскакивает ошибка
jpeg error #53

[Человек_Борща]

КО в ужасе.

jpeg error #53

И понятное дело=) Пытаться преобразовать png & gif в jpg. Сорри там формат другой. дельфи твоих "странных" мыслей не понимает.

1. используй TidHTTP
2. Используй TgifImage
3. Используй TPngImage

Все выше перечисленно гуглить в этом форуме, или в гугле. Информации тонны.

[roulis2844sasha]

а как этот код изменить чтоб он поддерживал все расширения изображений?

[Человек_Борща]

найти все нпобходимые модули для поддержки. Впрочем я уже написал какие тебе нужны. Гугли.

[Aliens_wolfs]

Делай проверку по разрешению и запускай отдельные процедуры под каждый формат передавая им ресурс изображения

в Uses
JPEG,
gifimage-скачай этот юнит если нет, он работает как JPEG,
PngImage- тоже где то видел простенький

function TForm2.GetImage(url:string): TPicture;
var
  hInternet, hConnect: pointer;
  dwBytesRead, i, L: cardinal;
  sTemp,aUrl: AnsiString; // текст страницы
  memStream: TMemoryStream;
begin
  hInternet := InternetOpen('MyApp', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  try
    if Assigned(hInternet) then
    begin
      hConnect := InternetOpenUrl(hInternet, PChar(url), nil, 0, 0, 0);
      if Assigned(hConnect) then
        try
          i := 1;
          repeat
            SetLength(sTemp, L + i);
            if not InternetReadFile(hConnect, @sTemp[i], sizeof(L),dwBytesRead) then
              break; // Получаем данные с сервера
            inc(i, dwBytesRead);
            until dwBytesRead = 0;
        finally
          InternetCloseHandle(hConnect);
        end;
    end;
  finally
    InternetCloseHandle(hInternet);
  end;
 memStream := TMemoryStream.Create;
  try
    memStream.Write(sTemp[1], Length(sTemp));
    memStream.Position := 0;
    //загрузка изображения из потока
//Извлекай строку с разрешением и проверяй
  if pos('.png', AnsiLowerCase(url)) <> 0 then
  result:=//Запускай функцию обработки png и передай ресурс возвращай TPicture
  else if pos('.jpg', AnsiLowerCase(url)) <> 0 then
   result:= LoadJpg(memStream); //Запускай функцию обработки jpg и передай ресурс возвращай TPicture
  else if pos('.bmp', AnsiLowerCase(url)) <> 0 then
   result:= //Запускай функцию обработки Bmp и передай ресурс возвращай TPicture
  else if pos('.gif', AnsiLowerCase(url)) <> 0 then
   result:=//Запускай функцию обработки Gif и передай ресурс возвращай TPicture
  finally
    //очистка
    memStream.Free;
  end;
end;

function TForm2.LoadJpg(memStream:TMemoryStream): TPicture;
var
jpegimg: TJPEGImage;
begin
  jpegimg := TJPEGImage.Create;
  try
    //загрузка изображения из потока
    jpegimg.LoadFromStream(memStream);
    Result:=TPicture.Create;
    Result.Assign(jpegimg);
  finally
    //очистка
    jpegimg.Free;
end;

Примерно так
Функции обработки изображения дорабатывай сам, темболее jpg у тебя есть

[roulis2844sasha]

а как программно можно узнать расширение изображения?

[roulis2844sasha]

Aliens_wolfs спасибо, щас попробую

[raxp]

...таки для конвертации лучше через GDI+.

[roulis2844sasha]

http://www.google.kz/search?hl=ru&q=...91l2-1.2.1.3l7
гугл недал ответа на
"процедура обработки Gif delphi"
и для других расширений он тоже нече не дал.
Объясните что это такое?

[Aliens_wolfs]

Можно и через GDI нужна будет попиксельная обработка

В поисковике набери GIFImage в Delphi