Delphi相談室（中級者以上）その１２
susieのコンポーネント調べましたが、
オブジェクトモジュールだけのソース無しでした。
使うの怖い。
（コンポーネントはちゃんとしているんでしょうが、将来の話として）
オブジェクトモジュールだけのソース無しでした。
使うの怖い。
（コンポーネントはちゃんとしているんでしょうが、将来の話として）
|
|
|
721 ：デフォルトの名無しさん：04/05/12 11:22
722 ：デフォルトの名無しさん：04/05/12 11:32
>>721
ｿｰｽｸﾚｸﾚ
ｿｰｽｸﾚｸﾚ
723 ：デフォルトの名無しさん：04/05/12 11:58
>>722
一部抜き出したので、これで勘弁。
procedure TSPI.GetBitmap(ms: TMemoryStream; bm: TBitmap);
var
hBmpInfo, hBitmap: HLOCAL;
pBmpInfo, pBitmap: Pointer;
BmpInfo: PBitmapInfo;
begin
GetPicture(ms.Memory, ms.Size, 1, hBmpInfo, hBitmap, nil, 0);
pBmpInfo := GlobalLock(hBmpInfo);
pBitmap := GlobalLock(hBitmap);
BmpInfo := pBmpInfo;
bm.Width := BmpInfo^.bmiHeader.biWidth;
bm.Height := BmpInfo^.bmiHeader.biHeight;
SetDiBits(bm.Canvas.Handle, bm.Handle, 0, BmpInfo^.bmiHeader.biHeight, pBitmap, BmpInfo^, DIB_RGB_COLORS );
GlobalUnlock(hBmpInfo);
GlobalUnlock(hBitmap);
GlobalFree(hBmpInfo);
GlobalFree(hBitmap);
end;
一部抜き出したので、これで勘弁。
procedure TSPI.GetBitmap(ms: TMemoryStream; bm: TBitmap);
var
hBmpInfo, hBitmap: HLOCAL;
pBmpInfo, pBitmap: Pointer;
BmpInfo: PBitmapInfo;
begin
GetPicture(ms.Memory, ms.Size, 1, hBmpInfo, hBitmap, nil, 0);
pBmpInfo := GlobalLock(hBmpInfo);
pBitmap := GlobalLock(hBitmap);
BmpInfo := pBmpInfo;
bm.Width := BmpInfo^.bmiHeader.biWidth;
bm.Height := BmpInfo^.bmiHeader.biHeight;
SetDiBits(bm.Canvas.Handle, bm.Handle, 0, BmpInfo^.bmiHeader.biHeight, pBitmap, BmpInfo^, DIB_RGB_COLORS );
GlobalUnlock(hBmpInfo);
GlobalUnlock(hBitmap);
GlobalFree(hBmpInfo);
GlobalFree(hBitmap);
end;
724 ：デフォルトの名無しさん：04/05/12 12:23
何言ってんだ・・・？
Delphian Worldにソース付きのがあるじゃん。
Del7のコンパニオンディスクにも入ってた奴。
まあ、俺はそのままでは使いにくかったので、それを参考に自作したけど。
Delphian Worldにソース付きのがあるじゃん。
Del7のコンパニオンディスクにも入ってた奴。
まあ、俺はそのままでは使いにくかったので、それを参考に自作したけど。
725 ：デフォルトの名無しさん：04/05/12 12:57
726 ：デフォルトの名無しさん：04/05/12 16:01
>725
「Susie Plug-in 読込コンポとビットマップ」
World行ってspiで検索すれば、それらしいのはひとつしか出てこない。
もう一回言おうか？
もう少し、検索を上手く使えるようになるといいね。
「Susie Plug-in 読込コンポとビットマップ」
World行ってspiで検索すれば、それらしいのはひとつしか出てこない。
もう一回言おうか？
もう少し、検索を上手く使えるようになるといいね。