[格式转换 TBitmap,OleVariant,TStream]里面的代码怎么会达不到要求呢 ( 积分: 50 )

colonel · 2005-06-08

procedure TForm1.Button1Click(Sender: TObject); var  PicStream: OleVariant;  vStream: TFileStream;  vStreamA: TMemoryStream; begin  if OpenDialog1.Execute then  begin    vStream:= TFileStream.Create(OpenDialog1.FileName, fmOpenRead);    vStreamA:= TMemoryStream.Create;    try      Image1.Picture.Bitmap.LoadFromStream(vStream);      PicStream:= StreamToVariant(vStream);      VariantToStream(PicStream, vStreamA);      Image2.Picture.Bitmap.LoadFromStream(vStreamA);    finally      freeandnil(vStream);      freeandnil(vStreamA);    end;  end; end; //------------------------------------ procedure VariantToStream(const Data: OleVariant; Stream: TStream); var p: Pointer; begin p := VarArrayLock(Data); try   Stream.Write(p^, VarArrayHighBound(Data,1) + 1);   finally   VarArrayUnlock(Data); end; end; function StreamToVariant(Stream: TStream): OleVariant; var p: Pointer; begin Result := VarArrayCreate([0, Stream.Size - 1], varByte); p := VarArrayLock(Result); try   Stream.Position := 0;     Stream.Read(p^, Stream.Size); finally   VarArrayUnlock(Result); end; end;

colonel · 2005-06-08

procedure TForm1.Button1Click(Sender: TObject); var  PicStream: OleVariant;  vStream: TFileStream;  vStreamA: TMemoryStream; begin  if OpenDialog1.Execute then  begin    vStream:= TFileStream.Create(OpenDialog1.FileName, fmOpenRead);    vStreamA:= TMemoryStream.Create;    try      Image1.Picture.Bitmap.LoadFromStream(vStream);      PicStream:= StreamToVariant(vStream);      VariantToStream(PicStream, vStreamA);      Image2.Picture.Bitmap.LoadFromStream(vStreamA);    finally      freeandnil(vStream);      freeandnil(vStreamA);    end;  end; end; //------------------------------------ procedure VariantToStream(const Data: OleVariant; Stream: TStream); var p: Pointer; begin p := VarArrayLock(Data); try   Stream.Write(p^, VarArrayHighBound(Data,1) + 1);   finally   VarArrayUnlock(Data); end; end; function StreamToVariant(Stream: TStream): OleVariant; var p: Pointer; begin Result := VarArrayCreate([0, Stream.Size - 1], varByte); p := VarArrayLock(Result); try   Stream.Position := 0;     Stream.Read(p^, Stream.Size); finally   VarArrayUnlock(Result); end; end;

LSUPER · 2005-06-08

你的流的位置忘了复位了： procedure TForm1.Button1Click(Sender: TObject); var  PicStream: OleVariant;  vStream: TFileStream;  vStreamA: TMemoryStream; begin  if OpenDialog1.Execute then  begin    vStream:= TFileStream.Create(OpenDialog1.FileName, fmOpenRead);    vStreamA:= TMemoryStream.Create;    try      Image1.Picture.Bitmap.LoadFromStream(vStream);      PicStream:= StreamToVariant(vStream);      VariantToStream(PicStream, vStreamA);      [red]vStreamA.Position := 0;[/red]      Image2.Picture.Bitmap.LoadFromStream(vStreamA);    finally      freeandnil(vStream);      freeandnil(vStreamA);    end;  end; end; ＝^0^＝

colonel · 2005-06-15

接受答案了.

[格式转换 TBitmap,OleVariant,TStream]里面的代码怎么会达不到要求呢 ( 积分: 50 )

colonel

Unregistered / Unconfirmed

colonel

Unregistered / Unconfirmed

LSUPER

Unregistered / Unconfirmed

colonel

Unregistered / Unconfirmed

Similar threads