Discussion :

[dennler]

Bonjour,
Je cherche un composant équivalent à ( TJvDBRichEdit ; TJvDataSource ; TJvDBNavigator) de Jedi pour Delphi combiné à une base DBF pour accueillir des informations RTF ( texte, fonte en couleur, image, lien hypertexte…)
J’ai téléchargé le fichier jvcllaz-1.0.5.zip avec 32 fichiers .lpk et un fichier jvcllaz_all.lpg qui contient la liste des .lpk.
Je pense trouver mon bonheur là dedans.
Est-il possible de ce servir du fichier .lpg à la place de compiler et installer individuellement chaque composant ? Si oui comment ?
D’avance merci.

[BeanzMaster]

Bonjour

Pourquoi vouloir utiliser la bibliothèque Jedi. Lazarus dispose déja de tout cela en natif. Acces DBF, DBLookup ect... ?

Sinon pour l'installation sers toi du gestionnaire de paquet en ligne (menu Paquet) et cherche jvcLaz

A+

[dennler]

Bonjour,
Super "le gestionnaire de paquet en ligne" j'ignorais, j'ai encore appris une commande de Lazarus. Ceci ressemble à Linux. Merci.
Quel composant de Lazarus natif permet des informations RTF ( texte, fonte en couleur, image, lien hypertexte…) dans une base ?
Le DBmemo ne permet que des infos TXT, sauf erreur de ma part.
D'avance merci

[BeanzMaster]

Toujours dans le gestionnaire de paquet en ligne cherche RichMemo par contre je ne sais pas si ce paquet comprend le DBRichMemo. Sinon télécharge le ici

A+

[dennler]

Bonjour,
J'ai testé le composant DBRichMemo avec une base DBF et un Champ Memo, pour l'instant cela ne fonctionne pas. Je vais tester avec un autre type de champ.
Sinon j'ai une solution avec le composant RichMemo et un champ BLOB mais j'ai du mal à combiner avec un DBNavigator.
Toute suggestion m'intéresse.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 
// **************************************************
procedure TForm1.Button2Click(Sender: TObject);
// Du TRichMemo -> le champ Blob
var
  Stream1: TBlobField;
MyMemoryStream : TMemoryStream;
begin
   // Créer un BlobStream
  MyMemoryStream := TmemoryStream.create;
try
   // Récupérer un MemoryStream
   RichMemo1.SaveRichText(MyMemoryStream);
   // Injecter le MemoryStream dans le champ  Blob
   MyMemoryStream.position := 0;
   (Dbf1.fieldByname('Champ_Blob') as TblobField).loadfromStream(MyMemoryStream); // MemoryStream  -> Champ BlobField
finally
   MyMemoryStream.Free;
end;
end;
// **************************************************
procedure TForm1.Button3Click(Sender: TObject);
begin
   RichMemo1.Clear; // Effacer
end;
// **************************************************
procedure TForm1.Button4Click(Sender: TObject);
// Du champ Blob vers le  TRichMemo 
var
  Stream1: TBlobField;
MyMemoryStream : TMemoryStream;
begin
   // Créer un BlobStream
  MyMemoryStream := TmemoryStream.create;
  Try
   // Récupérer un MemoryStream
  (Dbf1.fieldByname('Champ_Blob') as TblobField).SaveToStream(MyMemoryStream);
   // Injecter dans RichMemo le champ Blob
  MyMemoryStream.position := 0;
    RichMemo1.LoadRichText(MyMemoryStream);
  finally
   MyMemoryStream.free;
end;
end;
// **************************************************

D'avance merci