如上,谢啦
解决方案 »
- 俺是个菜鸟,在编写一个程序时,遇到一个问题,请求大家帮帮助。
- DELPHI开发ACCESS.对于字符型字段,如何在SQL中进行赋值,代码如下
- 哪里有带复选框的DBGrid?
- 关于在Paradox数据库内用Delphi的SQL动态新增一字段
- 要把datagrid中某一列的值从第一条到最后一条加总起来应该怎么做?
- 给提供个 酷酷的界面吧?
- 如何知道可执行文件是控制台还是GUI?
- 窗口模式问题(特急)
- ddqqyy(ddqqyy),不好意思,加分加错了,给了自己,请来领分。
- 请问在win2000下如何读出IE收藏夹的存放目录(在98下是固定的windows安装目录下的Favorites目录),请给出具体代码,多谢!
- 我用delphi 做了一个dll文件,vb不能调用,如何做vb能调用的dll?
- 请问如何在程序中对ACCESS数据库进行备份及恢愎?
var
bi,bb,rtf: string;
bis,bbs: Cardinal;
achar: ShortString;
hexpict: string;
I: Integer;
begin
GetDIBSizes(pict.Handle,bis,bbs);
SetLength(bi,bis);
SetLength(bb,bbs);
GetDIB(pict.Handle,pict.Palette,PChar(bi)^,PChar(bb)^);
rtf := ''{\rtf1 {\pict\dibitmap '';
SetLength(hexpict,(Length(bb) + Length(bi)) * 2);
I := 2;
for bis := 1 to Length(bi) do
begin
achar := Format(''%x'',[Integer(bi[bis])]);
if Length(achar) = 1 then
achar := ''0'' + achar;
hexpict[I-1] := achar[1];
hexpict[I] := achar[2];
Inc(I,2);
end;
for bbs := 1 to Length(bb) do
begin
achar := Format(''%x'',[Integer(bb[bbs])]);
if Length(achar) = 1 then
achar := ''0'' + achar;
hexpict[I-1] := achar[1];
hexpict[I] := achar[2];
Inc(I,2);
end;
rtf := rtf + hexpict + '' }}'';
Result := rtf;
end; 这个函数返回一段可以被导入到RxRichEdit或RichTextBox选择的RTF流。{假设SS是TStringStream,RE是TRxRichEdit,BMP是一存有图片的TBitmap。}
SS := TStringStream.Create(BitmapToRTF(BMP));
RE.PlainText := False;
RE.StreamMode := [smSelection];
RE.Lines.LoadFromStream(SS);
SS.Free;