如何在richedit中插入图片呢?

2003-12-20 05:15:13 191 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

期末求生指南：手把手教你用F12开发者工具绕过百一测评的切屏检测（JavaScript/jQuery实战）本文详细介绍了如何利用F12开发者工具绕过百一测评的切屏检测，通过分析JavaScript/jQuery中的blur()和focus()事件监听机制，提供实战技巧动态修改代码。文章涵盖事件监听定位、代码修改方法及应对高级检测机制的策略，适合需要临时解决线上考试限制的学生参考。阅读详情

如何在richedit中插入图片呢

...全文

Buck的振铃实验与分析上上期我们提到了buck电路的开关的振铃波形，本质原因是LC的阻尼振荡。文章偏理论，那BUCK到底是怎么产生尖峰振荡呢？要想把这个问题搞清楚，也很是不容易，所以文章有点长，请直接点赞转发加收藏。问题本期主要分析以下这两个问题： 1、死区时间是什么？这里有个小台阶是什么情况？ 2、上下尖峰振荡是如何产生的？跟哪些因素有关？理想的BUCK的SW波形我们由浅入深，一步一步来，先看理想的开关SW波形—没有尖峰电压的波形。为了能更好的看buck电路各个点的电压电流情况. 阅读详情

dimdemo

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

VeryOldMan 2003-12-22

打赏
举报

function ConvertBitmapToRTF(const Bitmap: TBitmap): string;
var
bi, bb: string;
bis, bbs: Cardinal;
achar: string[2];
Buffer: string;
I: Integer;
type
PWord = ^Word;
begin
GetDIBSizes(Bitmap.Handle, bis, bbs);
SetLength(bi, bis);
SetLength(bb, bbs);
GetDIB(Bitmap.Handle, Bitmap.Palette, PChar(bi)^, PChar(bb)^);
SetLength(Buffer, (Length(bb) + Length(bi)) * 2);
i := 1;
for bis := 1 to Length(bi) do
begin
achar := IntToHex(Integer(bi[bis]), 2);
PWord(@Buffer[i])^ := PWord(@achar[1])^;
inc(i, 2);
end;
for bbs := 1 to Length(bb) do
begin
achar := IntToHex(Integer(bb[bbs]), 2);
PWord(@Buffer[i])^ := PWord(@achar[1])^;
inc(i, 2);
end;
Result := '{\rtf1 {\pict\dibitmap ' + Buffer + ' }}';
end;

procedure InsertBitmapIntoRxRichEdit(const Bitmap: TBitmap; const RxRichEdit:
TRxRichEdit); overload;
begin
RxRichEdit.SelText := ConvertBitmapToRTF(Bitmap);
RxRichEdit.SelLength := 0;
RxRichEdit.SelStart := RxRichEdit.SelStart + 1;
end;

procedure InsertBitmapIntoRxRichEdit(const GraphicFileName: string; const
RxRichEdit: TRxRichEdit); overload;
var
Bitmap: TBitmap;

Graphic: TPicture;
begin
Graphic := TPicture.Create;
try
Graphic.LoadFromFile(GraphicFileName);

if Graphic.Graphic is TBitmap then
Bitmap := Graphic.Bitmap
else
begin
Bitmap := TBitmap.Create;
Bitmap.Assign(Graphic.Graphic);
end;

InsertBitmapIntoRxRichEdit(Bitmap, RxRichEdit);
finally
if Bitmap <> Graphic.Bitmap then
FreeAndNil(Bitmap);

FreeAndNil(Graphic);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
//InsertBitmapIntoRxRichEdit('C:\Temp\Untitled.bmp', RxRichEdit1);
InsertBitmapIntoRxRichEdit('C:\Temp\Untitled-8.jpg', RxRichEdit1);
RxRichEdit1.SetFocus;
end;

end.

newsunet 2003-12-20

打赏
举报

uses
RichEdit;

// Stream Callback function
type
TEditStreamCallBack = function(dwCookie: Longint; pbBuff: PByte;
cb: Longint; var pcb: Longint): DWORD;
stdcall;

TEditStream = record
dwCookie: Longint;
dwError: Longint;
pfnCallback: TEditStreamCallBack;
end;

// RichEdit Type
type
TMyRichEdit = TRxRichEdit;

// EditStreamInCallback callback function
function EditStreamInCallback(dwCookie: Longint; pbBuff: PByte;
cb: Longint; var pcb: Longint): DWORD; stdcall;
var
theStream: TStream;
dataAvail: LongInt;
begin
theStream := TStream(dwCookie);
with theStream do
begin
dataAvail := Size - Position;
Result := 0;
if dataAvail <= cb then
begin
pcb := read(pbBuff^, dataAvail);
if pcb <> dataAvail then
Result := UINT(E_FAIL);
end
else
begin
pcb := read(pbBuff^, cb);
if pcb <> cb then
Result := UINT(E_FAIL);
end;
end;
end;

//在RichEdit内插入流
procedure PutRTFSelection(RichEdit: TMyRichEdit; SourceStream: TStream);
var
EditStream: TEditStream;
begin
with EditStream do
begin
dwCookie := Longint(SourceStream);
dwError := 0;
pfnCallback := EditStreamInCallBack;
end;
RichEdit.Perform(EM_STREAMIN, SF_RTF or SFF_SELECTION, Longint(@EditStream));
end;

//转换位图为RTF代码
function BitmapToRTF(pict: TBitmap): string;
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;

//例子：从 Image1 插入图片到 RxRichEdit1
procedure TForm1.Button1Click(Sender: TObject);
var
SS: TStringStream;
BMP: TBitmap;
begin
BMP := TBitmap.Create;
BMP := Image1.Picture.Bitmap;
SS := TStringStream.Create(BitmapToRTF(BMP));
try
PutRTFSelection(RxRichEdit1, SS);
finally
SS.Free;
end;
end;

angelior 2003-12-20

打赏
举报

鄙視樓上的

sncel 2003-12-20

打赏
举报

http://www.sncelsoft.com/OtherDown/SnAdvRichedit.exe

不用上面的方法，效果和QQ,MSN一样。

需要和我联系,源代码要购买的。

S.F. 2003-12-20

打赏
举报

用剪贴板完成

var
Bmp : TBitmap;
begin
if not OpenPictureDialog1.Execute then //打开图象
exit;
Bmp := TBitmap.Create; //建立bitmap
try
try
Bmp.LoadFromFile(OpenPictureDialog1.FileName); //装入图象
Clipboard.Assign(BMP); //发送到剪贴板
richEdit.PasteFromClipboard; //richEdit 从剪贴板复制
except
application.MessageBox('对不起，该版本目前只支持BMP位图引入！',
'系统提示', mb_ok or mb_IconInformation);
end;
finally
Bmp.Free;
end;

建议使用 RX 组件包提供的 TRxRichEdit

如何在richedit中插入图片呢?

相关推荐