intraweb 中 动态显示多个相同的图片

Question

需要在 intraweb 中 动态显示多个相同的图片（存在IWImageFile1中），为节省带宽，写了如下代码，却没有反应：procedure TIWForm1.IWButton3Click(Sender: TObject);
Var
  IWAry:Array [1..12] of TIWImage;
  I:Integer;
Begin
  For I:=1 To 12 Do Begin
    IWAry[I]:=TIWImage.Create(IWImageFile1.Owner);
    IWAry[I].Left:= ((I mod 4)-1)*100;
    IWAry[I].Top:= (I Div 4)*100;
    IWAry[I].Picture.Assign(IWImageFile1.Picture);
  End;
end;请教问题处在哪里？

Answer 1

自己解决了部分问题；将代码作如下改进：
procedure TIWForm1.IWButton3Click(Sender: TObject); 
Var 
  IWAry:Array [1..12] of TIWImageFile; 
  I:Integer; 
Begin 
  For I:=1 To 12 Do Begin 
    IWAry[I]:=TIWImageFile.Create(Self); 
    IWAry[I].Parent:=Self;
    IWAry[I].Left:= ((I mod 4)-1)*100; 
    IWAry[I].Top:= (I Div 4)*100; 
    IWAry[I].ImageFile:=IWImageFile1.ImageFile; 
  End; 
end; 可以显示图像，但仍然是从服务端加载图片，且页面要刷新。
将代码移入
IWButton3AsyncClick(Sender: TObject;
  EventParams: TStringList)中，又无法显示图像。
请教高手解决办法！

Answer 2

貌似数组下标从0开始比较好，不过这个应该不会有影响
你将代码移进IWButton3AsyncClick(Sender: TObject; 
  EventParams: TStringList)的代码贴出来看看，你在里面如何利用这个TStringList类，
用来干了什么？

Answer 3

感谢各位支持！
回三楼，只是原样把以上代码移入IWButton3AsyncClick(Sender: TObject; 
  EventParams: TStringList)，并未使用TStringList类。
单位有生产任务，暂时把这事放下了，先结贴吧，谢谢各位！