OLE DragDropでユニコード文字列が文字化け (ID:46125)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

delphi6時代に作ったOLD DragDropをXE2に移植しました。
Unicode以前は自分の中のDragDropでも、IEなど外からのDropでも正常に機能していましたが、 XE2にしたら自分のDragDropは成功しますがIEからDROPは文字化けしてしまいます。

下のコードのOLEDropTextですが「テキスト」という文字をMyEditの中でDragDropすると①のところで
Bufferに「テキスト」が入りますが、IEから「テキスト」をMyEditにDropすると「斃&#19587;境&#26499;&#43776;&#43947;&#43947;&#43947;&#65195;&#65262;&#65262;&#65262;」となります。

②のBufferには、自己Dropでは「ニ0ュ0ケ0ネ0」になってしまいますがIEからだと「テキスト」が入ります。ただしサロゲートは当然文字化けです。

procedure TMyEdit.OleDragDrop(const DataObj: IDataObject; KeyState: Longint; Point: Tpoint; var Effect: Longint);
var
  res,i: integer;
  Medium: TStgMedium;
  hBuf:THandle;
begin
  for i := 0 to FDropTarget.FormatList.Count - 1 do
  begin
if DataObj.GetData(FDropTarget.FormatList.Formats[I], Medium) = S_OK then
    begin
      try
        case FDropTarget.FormatList.Formats[I].cfFormat of
          CF_HDROP:
            OLEDropFiles(Medium.hGlobal);
          CF_TEXT:
          begin
            OLEDropText(Medium.hGlobal,Point);
           end;
        end;
      finally
        ReleaseStgMedium(Medium);
      end;
      Break;
    end;
  end;
end;

//テキストを取り出す
procedure TMyEdit.OLEDropText(Drop: HGLOBAL; Point: Tpoint);
var
  Buffer: String;
  pData: PChar;

begin
   pData := GlobalLock(Drop);
   try
      Buffer:=StrPas(pData);//①
      Buffer:=WideString(AnsiString(PAnsiChar(pData))) ;//②
   finally
    GlobalUnlock(Drop);
   end;
end;

←解決時は質問者本人がここをチェックしてください。

戻る