как правельно обработать полученное изображение через HHTP?

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

привет всем!
Возникла проблема.. вот в чем задумка:
програма при запуске, отдельным потоком скачивает картинку по указанному полному http:// адресу.
Сохраняет в папку временных файлов. и загружает в TImage...
при закрытии программы изображение удаляется из Temp-папки.

но вот проблема с реализацией.. реализовать то я реализовал а правельно ли? Может есть другой вариант?

вот код потока:

function TGetImgThread.FNameFromURL(const AUrl: string): string; //вытаскиваем имя изображения из ссыкиизвлекаем имя файла и расширение из ссылки
var
  i: Integer;
begin
  i := LastDelimiter('/', AUrl);
  Result := Copy(AUrl, i + 1, Length(AUrl) - (i));
end;

function TGetImgThread.GetImgName: string;
begin
  Result := MainForm.GetTemp + FNameFromURL(MainForm.LogoEdit.Text); //получаем путь к временной папке и приписываем имя файла, потлучаем локальный путь до файла
end;

procedure TGetImgThread.Execute;
var
  http: TIdHTTP;
  FM: TMemoryStream;
begin
  Http := TIdHTTP.Create(nil);
  FM := TMemoryStream.Create;
  try
    Http.Get(MainForm.LogoEdit.Text, FM); //LogoEdit это TEdit в котором ссылка на файл. вот тут возникает ошибка и выскакивает исключение после except
    FM.SaveToFile(GetImgName); //записываем картинку из потока в файл
  except
    MainForm.Log.Items.Add('[Ошибка]Неудалось загрузить Лого-изображение.');
    Exit;
  end;
  if FileExists(GetImgName) then //проверяем если изображение существует то..
  begin
    Synchronize(LoadImg); //синхринизируем.. загружаем в Timage (эх как жаль что все так сложно=))
  end
  else //иначе возбуждаем исключение
    MainForm.Log.Items.Add('[Ошибка]Возможно лого-изображение повреждено при загрузке.');
  Http.Free;
  FM.Free;
end;

procedure TGetImgThread.LoadImg;
begin
  try
    MainForm.HosterLogo.Picture.LoadFromFile(GetImgName); //загружаем изображение
    MainForm.HosterLogo.Repaint;  //перерисовываем его, при скинировании изображение не показывается=( поэтому вот так
  except
    MainForm.Log.Items.Add('[Ошибка]Возможно лого-изображение повреждено.');
    exit;
  end;
end;

Может тут где-то ошибка? Может есть другой вариант реализации?

[Пепел Феникса]

Может тут где-то ошибка?

работает?делает то что надо?
если да значит нет ошибки.

Может есть другой вариант реализации?

есть и не мало
(но вам они не к чему, сейчас)

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

---Delete this---

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

Весь прикол в том что на локальном сервере (AppServ) все как часы..

но если ссылка откуда-то из далека, то возникает исключение. Ошибка растёт отсюда:

  try
    Http.Get(MainForm.LogoEdit.Text, FM); //LogoEdit это TEdit в котором ссылка на файл. вот тут возникает ошибка и выскакивает исключение после except
  FM.SaveToFile(GetImgName); //записываем картинку из потока в файл
  except
    MainForm.Log.Items.Add('[Ошибка]Неудалось загрузить Лого-изображение.');
    Exit;
  end;

если бы все работало=) Я бы не создовал тему....
А можно про другие варианты по подробнее пожалуйста=)?

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

народ.. поможет кто?

[bitSoft]

a ti udali block try...except..end, i posmotri shto za oshibka, ano budet i tvoi otvet...

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

да возникает ошибка...

    Http.Get(MainForm.LogoEdit.Text, FM);
    FM.SaveToFile(GetImgName);

ошибка следующего содержания...
...raised exception class EidSockedError with error "Socker Error #10054 connection reset by peer."..

не понимаю почему ошибка, картинка существует! нарисовал с бутылкой пива, по этому извеняюсь за содержание:
http://s42.radikal.ru/i098/1006/e9/9029d3d3fe6d.jpg

[bitSoft]

hmm, no neznaiu, u menya vsio otlichino rabotaet, vot KOD prastoi

var
 HTTP : TidHTTP;
 Temp : TFileStream;
begin
 HTTP := TIdHTTP.Create(Self);
 Temp := TFileStream.Create('c:\123.jpg',fmOpenWrite or fmCreate);
 HTTP.Get(edt1.Text,Temp);
 Temp.Free;
 HTTP.Free;
end;

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

неет.. неработает..

  FM: TFileStream;
begin
  Http := TIdHTTP.Create(nil);
  FM := TFileStream.Create(FNameFromURL(MainForm.LogoEdit.Text),fmOpenWrite or fmCreate);
  try
    Http.Get(MainForm.LogoEdit.Text, FM);
  except
    MainForm.Log.Items.Add('[Ошибка]Неудалось загрузить Лого-изображение.');
    Exit;
  end;

ошибка как есть так и осталась...