Devart Forums

Code: Select all

procedure TForm1.GetUserPhoto;
begin
  TThread.CreateAnonymousThread(procedure ()
  var
    queryresult:Tstringlist;
  begin
    queryresult:=TStringList.Create();
    RemoteConnQuery.SQL.Text:='<MYSQL QUERY STATEMENT>';
    RemoteConnQuery.Open;
    while not RemoteConnQuery.Eof do
    begin
      queryresult.add(RemoteConnQuery.FieldByName('userimagefilepath').AsString);
      RemoteConnQuery.Next;
    end;

    TThread.Synchronize (TThread.CurrentThread,
    procedure ()
    var
      ctr: Integer;
      profileAsyncImage:array of TAsyncImageLoader;
    begin
      for ctr := 0 to queryresult.Count-1 do
      begin
          SetLength(profileAsyncImage,ctr+1);
          profileAsyncImage[ctr]:=TAsyncImageLoader.Create(nil);
          profileAsyncImage[ctr].Parent:=layout1;
          profileAsyncImage[ctr].Width:=40;
          profileAsyncImage[ctr].Height:=40;
          profileAsyncImage[ctr].Pooled:=true;
          profileAsyncImage[ctr].Image.WrapMode:=TImageWrapMode.Stretch;
          profileAsyncImage[ctr].GetURL('http://www.domain.com/'+queryresult[ctr]+'.png');

          profileAsyncImage[ctr].Position.X:=10;
          profileAsyncImage[ctr].Position.Y:=ctr*100;
      end;
    end);
  end).Start;

end;