1. Accueil
  2. Delphi / Pascal
  3. Sources Delphi / Pascal
  4. Sources Fichier / Disque
  5. Enregistrement d'une image et du texte dans un fichier

Enregistrement d'une image et du texte dans un fichier

Soyez le premier à donner votre avis sur cette source.

Vue 6 135 fois - Téléchargée 945 fois

Télécharger le projet
Commenter

Description

Tout d'abord je tient à préciser que je reprend une sources de Bestiol qu'il m'avait envoyer mais qui ne marchait pas, je vous poste donc celle ci refaite et donc qui fonctionne.

Le prog consiste simplement à enregistrer une image et ou un texte
dans un fichier et de relire ce fichier par la suite.

L'astuce est toute bete vous comprendrer.
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Signaler
Messages postés
163
Date d'inscription
lundi 29 septembre 2003
Statut
Membre
Dernière intervention
8 mai 2010
Merci encore pour tous ces compliment :) C'est bon à savoir le coup du TJpegImage, j'en ferais bon usage ! ça évite les bricolages...

bonne prog à toi, j'espère que ton projet aboutira bientôt ça a l'air bien intéressant :) @ +
Signaler
Messages postés
304
Date d'inscription
lundi 30 décembre 2002
Statut
Membre
Dernière intervention
10 mars 2012
Félicitation :), moi aussi je voulais faire quelques choses de ce genre, j'ai mis au point ma Shining Database, elle permet donc de gerer un fichier binaire et d'y mettre tout ce qu'ont veux, image, sons ect.... sauf que je me suis inspiré de la base de registre windows, exemple on peut faire WriteString('MonPertoirePrincipaleMonSousRepertoire','MaClé','MaValeur');
bien entendu il n'ya pas de limitation dans le Path, je ne l'est pas encore terminer mais promis je mettrais la source aux profits de tous ;), et pour infos pour le problème des Jpeg il suffit d'inclure dans la clause 'Jpeg', ensuite de créé un compo de type TJpegImage
exemple
var
M:TMemoryStream;
J: TJpegImage;
begin
M:= TMemoryStream.create;
// ect...... chargement du flux
puis M.Seek(MonOffset, soFromBeginning);
J:= TJPegImage.Create;
J.LoadFromStream(M);
Image1.Picture.Graphic:=J;
M.Free;
{
Attention ne pas detruire J;
voila ça evite ainsi de devoir mettre une image dans le TImage ;)
};
end;
Bonne Prog @+
Signaler
Messages postés
163
Date d'inscription
lundi 29 septembre 2003
Statut
Membre
Dernière intervention
8 mai 2010
Merci bien Delphi prog pour ce petit conseil et pour ce compliment, je ne prog que depuis 1 mois alors je débute sec on va dire, niveau sécurité et secret de programmation je ne connait pas encore. Mais je fouille beaucoup et je me suit dit que ceci pourrait surement déjà aidé quelques débutant comme moi...
Merci encore !
Signaler
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
 28
Extra !
Félicitations.
Une suggestion pour éviter les problèmes de relectures futures : déclarer un type de signature Str8 = String[8] et l'utiliser pour définir
const
Signature: str8 = 'Antidote';
et la variable sig dans btnOpenFileClick (renommée par mes soins), au cas où quelqu'un changerait le longueur de la signature à un endroit et pas à un autre. Tu imagines les conséquences ?
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Antidote)