Image的问题，100分给能解决我问题的人。（注：加上我另一个提问共100）

Question

如何对Image进行读写操作，比较Image里的内容？

Answer 1

TBitMap
TJPG
TPicture类都提供image的读写操作.loadfromStream or loadfromFilesaveTOStream or SaveToFile

Answer 2

我不想保存在文件中，
能不能用另一个Image来作交换呢？
我的另一个问题你也去看一看吧！＠

Answer 3

定义一个TStream
来作为中间交换场所

Answer 4

image1.Picture.LoadFromFile;
image1.picture.SaveToFile;
Below function shows a bitmap form left to right.procedure LeftToRight(sPictureName: String);
Var
   x,y,i : Integer;
   bit1, Bit2 : Tbitmap;
   pixcolo1, pixColo2 : PbyteArray;
begin
   Bit1 := Tbitmap.Create ;
   Bit2 := Tbitmap.Create ;
   Try
     Begin
       bit1.LoadFromFile (sPictureName);
       bit2.LoadFromFile (sPictureName);
       bit1.PixelFormat := pf24bit;
       bit2.PixelFormat := pf24bit;
       For y :=0 to bit2.Height -1 do
          begin
            pixColo2 := bit2.ScanLine[y];
            For x := 0 to Bit2.Width * 3 -1 do
            begin
              pixColo2[x] := 0 ;
            end;
          end;       For i := 1 to bit2.Width do
       begin
         For y := 0 to bit2.Height -1 do
         begin
           pixColo1 := bit1.ScanLine[y];
           pixcolo2 := bit2.ScanLine[y];
           if pixColo2[i*3] < pixColo1[i*3] then pixColo2[i*3] := pixColo1[i*3] ;
           if pixColo2[i*3+1] < pixColo1[i*3+1] then pixColo2[i*3+1] := pixColo1[i*3+1] ;
           if pixColo2[i*3+2] < pixColo1[i*3+2] then pixColo2[i*3+2] := pixColo1[i*3+2] ;
         end;
         Form1.Canvas.Draw (0,0,bit2);
         Application.ProcessMessages ;
       end;
     end;
   finally
     Bit1.free;
     Bit2.free;
   end;
end;

Answer 5

我要的效果如：
　　XXXX　:= Image1;
    Image2 := XXXX;
   Image1 := XXXX;另：
　　请问用IMage有没有数组类的呢？
　　若没有，那么，哪些控件有呢？
    

Answer 6

to all :能不能给出代码呢？

Answer 7

netfyee: 15
smhpnuaa(天将降大任于斯人也！):10
Wnyu(能):25

Answer 8

我用Image一般使用savetofile的方法存成文件的,不过如果要不叫的话我决定可以用"Wnyu(能)"的方法!很不错的!不过如果实在不行,可以用TstreamMemory的方法
如果你可以把你的问题说清楚一点,我想我可以给你一些代码的,别着急,说清楚些,大虾们才能帮你了(我除外呀)