Fórum Cannot Open ClipBoard oq e isso ??? #187913
10/10/2003
0
Ae eu tive a ideia de por avata ae criei um .res pra evitar problemas
e toda vez q o usuario digita uma mensagem aparece o avata...
Estava tudo bem ate quando resolvi abrir dois programas , um seria o server e o outro o cliente...
Quando um envia a mensagem aparece o erro no outro ´cannot open clipboard´...
Eu to usando o RxRichEdit...
As imagens vem direto de um *.res sem nada de enviar arquivo um pro outro....
Alguem Pode me ajudar???
procedure TfrmCriarServer.rchMenChange(Sender: TObject);
var recebe,favata:string;
I:integer;
Encontrou:LongInt;
begin
rchMen.ReadOnly:=false;
For I:=1 to 5 do
begin
ColaImagens(I);
Encontrou:=0;
Encontrou:=rchMen.FindText(trocaImgs,Encontrou,length(rchMen.Text),[stWholeWord]);
while (encontrou<>-1) do
begin
rchMen.SelStart:=Encontrou;
rchMen.SelLength:=length(TrocaImgs);
rchMen.CutToClipboard;
{Inserir Figura}
Figura := TPicture.Create;
favata:=copy(TrocaIMGS,3,20);
try
Figura.Bitmap.LoadFromResourceName(HInstance,favata);
Clipboard.Create;
Clipboard.Assign(Figura);
rchMen.PasteFromClipboard;
finally
Figura.Free;
end;
Encontrou:=rchMen.FindText(trocaImgs,Encontrou,length(rchMen.Text),[stWholeWord]);
end;
end;
rchMen.ReadOnly:=true;
end;
Dark
Curtir tópico
+ 0Posts
10/10/2003
Beppe
Gostei + 0
10/10/2003
Dark
Gostei + 0
10/10/2003
Beppe
Ataliba
Gostei + 0
11/10/2003
Dark
Resolvi o problema agora vo espero q naum aparecam mais erros bobos q nem esse... :shock:
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)