大家帮看看代码，哪不对

[wenjiu5]

procedure TfrmMain.Button1Click(Sender: TObject);
var
httpClient: TIdHttp;
imageStream: TMemoryStream;
imageStream1: TFileStream;
strURL: String;
Bitmap: TBitmap;
begin
httpClient := TIdHttp.Create(nil);
imageStream := TMemoryStream.Create;
Bitmap := TBitmap.Create;
try
strURL := 'http://127.0.0.1:8080/EditText.jsp?text=' + 'a'+'&width='
+IntToStr(100)+'&height='+IntToStr(20);
httpClient.Get(strURL, imageStream);
imageStream.SaveToFile('c:\abc.bmp');
imageStream.Position := 0;
Bitmap.LoadFromStream(imageStream);
Canvas.Draw(0,100, Bitmap);
finally
imageStream.Free;
Bitmap.Free;
httpClient.Free;
end;
end;

显示出来的图片残缺不全，但保存到硬盘上的文件却是正确的
谁知道是怎么回事

[qdmis]

帮你顶

[zwb666]

帮你顶

[hsmserver]

Canvas.Draw(0,600, Bitmap);
改大点试试

[hjf1223]

没有做过，帮你顶上去

[readersm68]

Canvas.Draw(0,600, Bitmap);那个是点的位置（x,y,），不是大小。

[数字蛋糕]

可能是因为你只画了一次,而Canvas上的东西是不会自动保存到下次重绘的.
把这张图画到TImage上试试?

[readersm68]

直接用：
Bitmap.LoadFromStream('c:\abc.bmp');
Canvas.Draw(0,100, Bitmap);
试试

[readersm68]

不过这样做出来，被其他窗体覆盖了以后，不会重绘。

[longtusoft]

看看老地主的做法吧.