Скачать: CL | DM;

Delphi+uses Clipbrd VS Notepad   Найти похожие ветки 

← →
DevilDevil ©   (2006-09-15 17:08) [0]

Блокнот, Ворд, Эксель показывают каракули при вставке из буфера обмена, если сделать так:

Clipboard.AsText := "Засунули текст в буфак";

---

← →
Loginov Dmitry ©   (2006-09-15 17:11) [1]

DevilDevil ©   (15.09.06 17:08)
Блокнот, Ворд, Эксель показывают каракули при вставке из буфера обмена, если сделать так:

А раскладка при этом какая?

---

← →
DevilDevil ©   (2006-09-15 17:19) [2]

Должно корректно работать при любой :)

---

← →
default ©   (2006-09-15 18:42) [3]

у меня работает

---

← →
DevilDevil ©   (2006-09-15 18:55) [4]

void __fastcall CopyStrToClipBoard(AnsiString STR)
{
 WideString Buf = WideString(STR);
 int Size = (Buf.Length()+1)*2;

 void* Data;
 void* DataPtr;

 Clipboard()->Open();

   Data = GlobalAlloc(GMEM_MOVEABLE+GMEM_DDESHARE, Size);
   DataPtr = GlobalLock(Data);
   memmove(DataPtr, Buf.c_bstr(), Size);

   SetClipboardData(CF_UNICODETEXT,  Data);

   GlobalUnlock(Data);
   GlobalFree(Data);

 Clipboard()->Close();
}

---

← →
DevilDevil ©   (2006-09-15 19:02) [5]

procedure CopyStrToClipBoard(STR : string);
var
 Data: THandle;
 DataPtr: Pointer;
 Buf : WideString;
 Size : integer;
begin
 Buf := WideString(STR);
 Size := (Length(Buf)+1)*2;

 Clipboard.Open;
 try
   Data := GlobalAlloc(GMEM_MOVEABLE+GMEM_DDESHARE, Size);
   try
     DataPtr := GlobalLock(Data);
     try
       Move(Buf[0], DataPtr^, Size);
       SetClipboardData(CF_UNICODETEXT, Data);
     finally
       GlobalUnlock(Data);
     end;
   except
     GlobalFree(Data);
     raise;
   end;
 finally
   Clipboard.Close;
 end;
end;

---

← →
DprYg ©   (2006-09-15 19:04) [6]

http://www.delphikingdom.ru/asp/viewitem.asp?catalogid=780

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.039 c