想问一下为什么bmp图片以二进制流传输后，再显示图片就不清楚了？ ( 积分: 20 )

用image显示时图象不清楚了，谢谢大家

用image显示时图象不清楚了，谢谢大家

把你的代码贴出来看看!

估计是有丢失吧

也就是我在屏幕拉伸的时候就不清楚了，下面是我代码，也是我想抓全屏，可是当大小改变的时候字就不清楚了，可以转换成其他更清楚的格式吗？
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls,ExtDlgs;

type
TForm1 = class(TForm)
Panel1: TPanel;
SaveDialog1: TSaveDialog;
Timer1: TTimer;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Image1: TImage;
procedure Button3Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
Fullscreen:Tbitmap;
FullscreenCanvas:TCanvas;
DC:HDC;
begin
timer1.Enabled:=false;
Fullscreen:=TBitmap.Create;
Fullscreen.Width:=screen.width;
Fullscreen.Height:=screen.Height;
DC:=GetDC(0);
FullscreenCanvas:=TCanvas.Create;
FullscreenCanvas.Handle:=DC;
Fullscreen.Canvas.CopyRect(Rect(0,0,Screen.Width,Screen.Height),
fullscreenCanvas,Rect(0,0,Screen.Width,Screen.Height));
FullscreenCanvas.Free;
ReleaseDC(0,DC);
image1.Picture.Bitmap:=fullscreen;
image1.Width:=fullscreen.width;
image1.Height:=fullscreen.Height;
fullscreen.Free;
form1.WindowState:=wsNormal;
form1.Show;
messagebeep(1);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
form1.WindowState:=wsMinimized;
form1.Hide;
timer1.Enabled:=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if savedialog1.Execute then
begin
form1.Image1.Picture.SaveToFile(Savedialog1.FileName);
end;
end;

end.

图象被拉伸或缩小后再显示都会产生失真的.
可以采用矢量格式文件来保存图象.
就象Flash中的图象，放大缩小后，图象还是那么清楚.