我想实现如下功能，如果谁会我可以掏钱的。（人民币，请报价。）

Question

向Oicq那样，可以可以在richedit1控件里加入gif图片，还可以写字，***对方接收时还可以接收到这些gif。*****还可以帖图变成背景。richedit1控件里有http://www.sohu.com    类似的字样可以变成超链接，点击后可打开网页，请报价。

Answer 1

synedit 上網找找這個控件!

Answer 2

不知道你所说的gif是静态还是动态的？？
请联系我twoy2000(请用@替换)sina.com

Answer 3

这个东西不用给钱吧？
sourceforge上那么一堆开源的相关东西

Answer 4

就两项要求：插入gif,转换链接？

Answer 5

王哥，你RICHEDIT插入图片解决了吧，在你项目中是winsocket的应用，如果在另一方显示同样的gif图片，无非就是一个发送协议的定制，如果双方都有的图片，像QQ的好友，可以进行“格式化标准字符”的方法来做，像QQ那样，如果是像QQ2004给对方发送图片并显示的话，在你的消息协议中添加一个协议信息即可。将string类型转换为image类型，QQ就是这样做的。*.dfm文件中Image类型的二进制字符串。。明白了吧？？？？

Answer 6

给你二个函数，可以间接的进行转换：function ComponentToString(Component: TComponent): string;var
  BinStream:TMemoryStream;
  StrStream: TStringStream;
  s: string;
begin
  BinStream := TMemoryStream.Create;
  try
    StrStream := TStringStream.Create(s);
    try
      BinStream.WriteComponent(Component);
      BinStream.Seek(0, soFromBeginning);
      ObjectBinaryToText(BinStream, StrStream);
      StrStream.Seek(0, soFromBeginning);
      Result:= StrStream.DataString;
    finally
      StrStream.Free;    end;
  finally
    BinStream.Free
  end;
end;function StringToComponent(Value: string): TComponent;
var
  StrStream:TStringStream;
  BinStream: TMemoryStream;
begin
  StrStream := TStringStream.Create(Value);
  try
    BinStream := TMemoryStream.Create;
    try
      ObjectTextToBinary(StrStream, BinStream);
      BinStream.Seek(0, soFromBeginning);
      Result := BinStream.ReadComponent(nil);    finally
      BinStream.Free;
    end;
  finally
    StrStream.Free;
  end;
end;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Answer 7

用RXLIB这个组件包里面的rxrichtxt吧

Answer 8

http://www.realoa.net上面有你要的。

Answer 9

把 gif 进行编码, 再建立一个标志位, 当成文本加在消息尾部发过去不就OK?