Загрузка Image через idHTTP в TThread

[fucil]

Не пойму что тут не так, уже часа 2 голову морочу, ткните носом что тут не так!

Вызываю так!

procedure TForm2.Button1Click(Sender: TObject);
var
  NewThread: TThrd;
begin
  NewThread := TThrd.Create(True);
  NewThread.FreeOnTerminate := True;
  try
    NewThread.Url:='http://upload.wikimedia.org/wikipedia/ru/thumb/c/c5/JPEG_example_down.jpg/350px-JPEG_example_down.jpg';
    NewThread.Image:=image1;
    NewThread.DefaultImage:=image2;
    NewThread.Resume;
  except on EConvertError do
    begin
      NewThread.Free;
      ShowMessage('error!');
    end;
  end;
end;

Сам юнит потока

unit Unit3;

interface

uses
  Classes,ExtCtrls,SysUtils;

type
  TThrd = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
    procedure loadImage;
  Public
    Url:string;
    image,DefaultImage: Timage;
  end;

implementation
uses
JPEG,IdComponent, IdTCPConnection, IdTCPClient, IdHTTP;

procedure TThrd.loadImage;
var
  MS:TMemoryStream;
  pic: TJPEGImage;
  HTTP: TIdHTTP;
begin
try
  http:=TIdHTTP.Create(nil);
  MS:=TMemoryStream.Create;
  pic:= TJPEGImage.Create;
  try
    HTTP.Get(url,MS);
    MS.Position:=0;
    image.Picture.Assign(pic);
    DefaultImage.Visible:=false;
    image.Visible:=true;
  except
    on e:Exception do
    begin
      image.Visible:=false;
      DefaultImage.Visible:=true;
    end;
    end;
finally
  freeandnil(http);
  freeandnil(MS);
  freeandnil(pic);
end;
end;

procedure TThrd.Execute;
begin
  Synchronize(loadImage);
end;

end.

Проблема тут именно в потоке ! Процедура без потока работает на ура !

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

а что не так?

[fucil]

Вываливает Access vioation at address 004185CB in module "Project1.exe" . Read of address 00000000

вот скрин http://pix.am/yaxv

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

и правильно.

    image,DefaultImage: Timage;

что-то я не вижу кода, который создает эти 2 контейнера изображений.

[fucil]

Сообщение от Человек_Борща

и правильно.

    image,DefaultImage: Timage;

что-то я не вижу кода, который создает эти 2 контейнера изображений.

я наверное ещё с этим не встречался про что ты ? можно пример хоть малейший !
я же по ссылке передал image

  NewThread.Image:=image1;
  NewThread.DefaultImage:=image2;

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

хм, ну тогда поток стартует раньше чем получает заветные
NewThread.Image:=image1;
NewThread.DefaultImage:=image2;

либо что-то ещё. Ставь бряк на начало кода потока и трассируй отладчиком до ошибки.
Иначе можно гадать вечно.

Но обращание в пустоту определенно намекает, что стучимся в не существующую дверь.

[fucil]

Сообщение от Человек_Борща

хм, ну тогда поток стартует раньше чем получает заветные
NewThread.Image:=image1;
NewThread.DefaultImage:=image2;

Не может быть смотри

NewThread := TThrd.Create(True); //запускаю поток в приостановленном режиме !!!
    NewThread.FreeOnTerminate := True; //самовыгрузка в конце потока 
    NewThread.Url:='http://upload.wikimedia.org/wikipedia/ru/thumb/c/c5/JPEG_example_down.jpg/350px-JPEG_example_down.jpg'; //инициализация поля url
    NewThread.Image:=image1; //инициализация первого поля image1 
    NewThread.DefaultImage:=image2; //инициализация второго поля image2
NewThread.Resume; // запускаю поток

Сообщение от Человек_Борща

Ставь бряк на начало кода потока и трассируй отладчиком до ошибки.

Бряк ставил, ошибку вываливает при выходе из loadImage

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

ТС, у вас весь код потока в синхронизации, тогда нет смысла в потоке.
далее, отлаживайте код, смотрите где AV вылетает.

[fucil]

В чем же беда эксперты help !
Что то мне подсказывает что тут беда с полями
Я где то тут накуралесил, и по неопытности не знаю где !

Не ну реально а в чем беда, я уже как только не пробовал, все та же ошибка, я в шоке !

[fucil]

ахаха решено ! это я тут строку затер и не вчехлил ))))) сутки парил мозг, а проблема была тут:

pic.LoadFromStream(MS);

Тему закрыто !

Отдельное спасибо Пепел Феникса