날아라날아
(고광민)
|
|
위 소스는 다음과 같이 해야지 XE5에서 잘 작동합니다.
제 pc에서 테스트 완료 했습니다.
procedure TfrmMain.updateScreen( pImgBuffer : Pointer ; size : Integer);
var pSrc, pDst : PByte;
h, lineLen : Integer;
Bitmap : Tbitmap;
TempRect : Trect;
begin
Bitmap := Tbitmap.Create;
Bitmap.Width := mpRemoteInfo.width;
Bitmap.Height := mpRemoteInfo.height;
case mpRemoteInfo.bitsPerPixel of
32 : Bitmap.PixelFormat := pf32bit;
24 : Bitmap.PixelFormat := pf24bit;
end;
pSrc := pImgBuffer;
lineLen := mpRemoteInfo.width * PIXEL_SIZE;
for h := 0 to mpRemoteInfo.height - 1 do
begin
pDst := Bitmap.ScanLine[h];
CopyMemory( pDst, pSrc, lineLen);
Inc(pSrc,lineLen);
end;
TempRect := Rect(0,0,mpRemoteInfo.width,mpRemoteInfo.height);
ImageRemote.Canvas.CopyRect(TempRect,Bitmap.Canvas,TempRect);
Bitmap.Free;
ImageRemote.Invalidate();
end;
2015-11-11 오전 10:21:52
|
|
