GARANTIR DESCONTO

Fórum Cannot Open ClipBoard oq e isso ??? #187913

10/10/2003

0

To fazendo aqueles chat com ClientSocket e ServerSocker...
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

Dark

Responder

Posts

10/10/2003

Beppe

Vc naum precisa criar clipboards.. tire o Clipboard.Create


Responder

Gostei + 0

10/10/2003

Dark

entaum mesmo tirando continua dando erro eu coloquei isso ae por colocar no desespero num to conseguindo elimina esse erro...


Responder

Gostei + 0

10/10/2003

Beppe

O erro acontece quando o clipboard foi aberto e naum foi fechado. Tente chamar Clipboard.Close antes de PasteFromClipboard. Se isto funcionar entaum ha um bug em algum lugar...

Ataliba


Responder

Gostei + 0

11/10/2003

Dark

Vlw...
Resolvi o problema agora vo espero q naum aparecam mais erros bobos q nem esse... :shock:


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar