目前做的 能連線 能對話 但是表情符號上就怪怪的 能顯示出來了 但是會有問題 圖的位置錯勿，還有只能顯現一個表情 不知道要怎麼改才好~"~ 請大大們教我 或是能提供我一個範例嗎???拜托    //把訊息中的表情變成圖

procedure TForm1.ShowMessage(Msg:String);
var i,nu:integer;
    Posnu:integer;
    BMP:TBitmap;
    SS:TStringStream;
const Picnu:array[0..9] of string=('<#0#>','<#1#>','<#2#>',
'<#3#>','<#4#>','<#5#>','<#6#>','<#7#>','<#8#>','<#9#>');
begin
  For i:= 0 to 9 do
    begin
    Posnu:=Pos(picnu[i],Msg);
    if Posnu <> 0 then
      begin
        RichEdit1.Text:=RichEdit1.Text Copy(Msg,1,Posnu-1);
        Delete(Msg,1,Posnu 4);
        //顯示表情
        BMP:=TBitmap.Create;
        BMP.LoadFromFile('Pictures\' inttostr(i) '.bmp');
        SS := TStringStream.Create(BitmapToRTF(BMP));
        AddImage(RichEdit1,SS);
        SS.Free;
        BMP.Free;
        GoBottom(RichEdit1);
      end;
    end;
RichEdit1.Text:=RichEdit1.Text #13#10;
end;

阿峰 你好: 因為.. 你用FOR來做所以他只跑10次,若<#5#>在<#2#>前面 那程式會先找到2的那一個那5的不會再出現了因為 你delete掉了他不存在Msg裡面了

------
======================
昏睡~
不昏睡~
不由昏睡~

ko 前輩 多謝您的回應 您說的問題，我瞭解了... 可是我主要的問題是在於..我顯示一個"表情"後 我不知道怎麼把表情後面的文字，再串接到表情的後面... 或是有其它的方法，可以先把關鍵字轉成圖案，然後再與文字一同輸出呢?? 麻煩各位大大指教，謝謝!!

你這樣的標題不太合適耶。 因為你的問題不在網路問題。 而是普通的貼圖。。。。。。 這樣的標題。比較不會有可以解決你這個問題的人進來喔。

這樣試試看 :     

 
   i:=Pos('<#', Msg);
   while (i > 0) do begin
      if (i 2 <= length(Msg)) and (Msg[i 2] in ['0'..'9']) and (copy(Msg,i 3,2) = '#>') then begin
         RichEdit1.Text:=RichEdit1.Text Copy(Msg,1,i-1);
         BMP:=TBitmap.Create;
         Try
            BMP.LoadFromFile('Pictures\' Msg[i 2] '.bmp');
            SS := TStringStream.Create(BitmapToRTF(BMP));
            AddImage(RichEdit1,SS);
         finally
            BMP.Free;
         end;
         GoBottom(RichEdit1);
         Msg:=copy(Msg,i 5,length(Msg));
      end else begin
         RichEdit1.Text:=RichEdit1.Text Copy(Msg,1,i 1);
         Msg:=copy(Msg,i 2,length(Msg));
      end;
      i:=Pos('<#', Msg);
   end;

我隨便寫寫, 沒 compile 過, 不知道正不正確 ? 若有一點小錯誤, 請自行修正 同時, 建議將 BMP 移到 while 迴圈外面來 create, 效率高得多 發表人 - boson 於 2005/05/10 23:25:08

阿峰 你好: 我沒辦法改你的code因為BitmapToRTF,AddImage,GoBottom 這3個function我沒有 但是我給你個方向 用for迴圈..delete 的話只刪'<#?#>' 條件是 for i:=0 to Length(Msg) do

------
======================
昏睡~
不昏睡~
不由昏睡~

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.