richedit

osman_simsek · Mesaj gönderen **osman_simsek** » 02 Ara 2007 07:54

richedit içine resim nasıl yerleştirilebilir ?

ikutluay · Mesaj gönderen **ikutluay** » 03 Ara 2007 07:32

richedit 2.0 dllyi kullanan bir rşchedit lazım sana.

ya kendin turet yada jvrichedit kullan

osman_simsek · Mesaj gönderen **osman_simsek** » 03 Ara 2007 11:38

aslında richedit olması da çok önemli değil, tam olarak yapmak istediğim html komutlarını yorumlayabilen bi yapı oluşturmak. bunu beceremezsem şayet, o zaman richedit kullanılabilir.
2 makine arasında text mesaj gönderiyorum. Bu sayede smiley de gösterebilirim.

mrmarman · Mesaj gönderen **mrmarman** » 04 Ara 2007 12:07

Önerim TWebBrowser kullan, gönderilerini HTML olarak yolla. Dilediğin şekilde yorumlama özgürlüğüne sahip olursun.

osman_simsek · Mesaj gönderen **osman_simsek** » 04 Ara 2007 12:12

twebbrowser ile navigate kullanarak bişiler açtırdığımda, bunu gidip internet explorer ın history sine yazıyor.
normalde varolmayan bir html dosyayı sadece komut göndererek gösterebiliyor muyum?
evetse, çok kısa bi örnek alabilir miyim

mrmarman · Mesaj gönderen **mrmarman** » 04 Ara 2007 01:41

Varolmayan derken ne demek istediğini anlamadım ama temp dizine gelen mesajı HTML olarak dosya oluşturup bu dosyayı navigate ettirebilirsin.

Yani mesela ben sana Merhaba

gönderdim... sen bu gönderdiğimi

<html><body>Merhaba

</body></html> olarak HTML taglarını ekledin. Neyse örnek kod yazayım daha iyi anlarsın..

- Forma bir tane button, bir tane Memo, bir tane de WebBrowser koy. Proje dizinine de gulenadam.gif isminde bir resimcik koy.

Kod: Tümünü seç

Var
  Dosya : TFileName;
begin
  Dosya := ExtractFilePath(Application.Exename) + 'Mesaj.HTML';
  With TStringList.Create do begin
    Text := Memo1.Lines.Text;
    Insert(0, '<html><body>');
    Add('</body></html>');
    Text := StringReplace( Text, ':)', '<img src="gulenadam.gif">', [rfReplaceAll]);
    SaveToFile(Dosya);
    Free;
  end;
  WebBrowser1.Navigate(Dosya);

Bu kodu Button'un OnClick olayına koy. Sonra da çalıştır. Memoya şunu yaz

Kod: Tümünü seç

Merhaba :)

sonra da butona bas. gülen adam ilgili smiley'e yerleşir.

Dene ve yorumla...

osman_simsek · Mesaj gönderen **osman_simsek** » 04 Ara 2007 01:46

[quote="mrmarman"]

Kod: Tümünü seç

  Dosya := ExtractFilePath(Application.Exename) + 'Mesaj.HTML';

mesaj.html diye bir dosyam olmasın. mesaj.html in içinde barındıracağı html kodları ben string olarak göndereyim.

mesaj.html diye bişi olursa malesef bunu history ye yazıyor

osman_simsek · Mesaj gönderen **osman_simsek** » 04 Ara 2007 01:48

aslında tekrar bi düşündüm de, twebbrowser kullanırsak da şöyle bir problemimimiz olacak,
yeni gelen her text de refresh attırmak zorunda kalacağım ki, bu da en azından ekranda bir titreme yapacak. bu da olmaz

mrmarman · Mesaj gönderen **mrmarman** » 04 Ara 2007 01:51

sen bilirsin... Yol göstermek önermek bizden tercih senden

osman_simsek · Mesaj gönderen **osman_simsek** » 04 Ara 2007 01:57

teşekkür ederim,
son bi kaç gündür sizin başınızı epey ağrıttım

peki runtime da richedit e bu şekilde resim atabilir miyim ?

mrmarman · Mesaj gönderen **mrmarman** » 04 Ara 2007 02:01

Normal Richedit'e hayır. Üçüncü parti richedit bileşenine ihtiyacın olacaktır. Önerilen Jedi Serisindeki RichEdit ücretsiz idi deneyebilirsin.