Accueil > > > DFM READER
 DFM READER
 Information sur la source
 Description
Cette source lit une image à partir d'une source DFM ( "je pense que ça veux dire: Delphi Form File" :p) bien sure vous pouvez utiliser les pointeurs ou de ASM (pour optimiser le code) moins de variables... fait ce que vous voulez, moi personnellement j'ai pas le temps de faire ça déja j'ai fais cette source juste en break time pour un ami qui a bc chercher sur le net et rien trouvé alors je pense que ça sera utile pour bc de gens. bon! pour les DFM je pense que le delphi enregistre tous format que soit image jpeg icon ou tous autre format d'image en bitmap. j'explique un peut plus, si on utilisent un Timage pour enregistrer un image par exemple ; les données de cette image sont enregistrer dans le ficher DFM (Fichier ASCII) dans le Block qui situe entre "Picture.Data = {" jusqu'au prochaine "}" sous format de chaine en Hexadécimale, et il écrit le type de format original dans les 24 premiers bites genre (075 7D..bal bla) pour l'identifier format original "TJPEG ou TBITMAP" ou cas ou vous voulez récupérer ce que vous appartiens bien sure :D!, tous format bitmap commence par 42 4D = M B c a dire format bitmap (pour tester et ouvrer une bitMap avec un éditeur Hex pour voire, d'ailleurs c le cas de tous les fichier non ASCII, alors il ne reste que de récupérer tous block de donnée entre 42 4D jusqu'au prochaine "}" et convertir le code hex en byte puis les récupérer dans un Tstream et le reste n'est pas très dure a faire, ben! pour la plupart des collègues.
 Source
- //********Notre Procedure de conversation modifier
- //********Origine http://www.experts-exchange.com/Programming/Languages/Pascal/Delphi/Q_20438223.htm
- procedure HexStr2Bmp(Astring:Ansistring);
- var
- BmpStream: TMemoryStream;
- Bmp1: TBitmap;
- i: Integer;
- Mystr:string;
- begin
- showmessage('Size: '+floattostr((Length(Astring)/2))+' Octs');
- if Length(Astring) mod 2 <> 0 then //**on teste si c'est une valide bitmap
- Begin //** (if is a valide Hex Code bitmap)******
- ShowMessage('Not Even');
- Exit;
- end;
- BmpStream := TMemoryStream.Create;
- //******on calcule le volume de notre stream (Stream size fom length code)
- BmpStream.Size := Length(Astring) div 2;
-
- for i := 0 to (Length(Astring) div 2)-1 do
- begin
- mystr:=Copy(Astring,((i+1)*2)-1,2);
- mystr:=trim(Mystr);
- //****assigne our byte in stream (on ajout nos byte calculer au steam)
- PByteArray(BmpStream.Memory)[i] := StrToInt('$'+Mystr);
-
- end;
- //**Revenir au debut de stream
- BmpStream.Position:=0;
- //form1.edit1.text := IntToHex(PByteArray(BmpStream.Memory)[0],2); // ça vous donne 42=debut bitmap correct car 42,4D=B M
- try
- Bmp1 := TBitmap.Create;
- BmpStream.Position := 0;
- Bmp1.LoadFromStream(BmpStream);
- FDFMREADER.Image1.canvas.Draw(0,0,Bmp1);
- bmp1.SaveToFile('temps1.bmp');
- finally
- Bmp1.Free;
- BmpStream.Free;
- end;
-
-
- //**************************************
- procedure TFDFMREADER.ReadDFM(Filenamee:string);
- label 1;
- Var
- ReadString:TStringList;
- linee,wordd:string;
- I, Llength:integer;
- texte:Ansistring;
- begin
- //****je vai pas parler de creation car tous le monde vas le savoir un jour
- ReadString:=TStringList.create;
- //********************************************
- ReadString.LoadFromFile(filenamee);
- pb1.Max:=ReadString.Count;
- i:=0;
-
- //*****on vas chercher notre "Picture.Data = { " ou se trouve le Block de donnée de bitmap
- //*****search "Picture.Data = { " the Block of bitmap hex code
-
- while (i < ReadString.Count-1) do
- begin
- inc(i) ;
- wordd:='';
- linee:=readstring[i];
- linee:=trim(linee);
- wordd:=copy(linee,0,7);
- if lowercase(wordd)='picture' then
- while (linee <> 'end') do
- begin
- inc(i);
- //**********to be freeeeeeeee*********
- application.ProcessMessages;
- linee:=readstring[i];
- linee:=trim(linee);
- Llength:=length(linee);
- //****"{" it mean the end of Block data"
- if copy(linee,Llength,1)='}' then
- begin
- linee:=copy(linee,0,Llength-1) ;
- memo1.Lines.Add(linee);
- pb1.Position:=i;
- goto 1;
- end else
- memo1.Lines.Add(linee);
- pb1.Position:=i;
-
- end;
-
- end;
-
- 1: begin
- texte:='';
- Edit1.Text:=copy(memo1.lines.Text,24,24);
- memo1.Lines.Text:=copy(memo1.lines.Text,25,length(memo1.Lines.Text));
- //******** HEX CODE saint*****clean our result*********
- for i:=0 to memo1.Lines.Count-1 do
- texte:=texte+trim(memo1.Lines.Strings[i]);
- HexStr2Bmp(texte); //**********Here the Procedure************
- end;
- end;
//********Notre Procedure de conversation modifier
//********Origine http://www.experts-exchange.com/Programming/Languages/Pascal/Delphi/Q_20438223.htm
procedure HexStr2Bmp(Astring:Ansistring);
var
BmpStream: TMemoryStream;
Bmp1: TBitmap;
i: Integer;
Mystr:string;
begin
showmessage('Size: '+floattostr((Length(Astring)/2))+' Octs');
if Length(Astring) mod 2 <> 0 then //**on teste si c'est une valide bitmap
Begin //** (if is a valide Hex Code bitmap)******
ShowMessage('Not Even');
Exit;
end;
BmpStream := TMemoryStream.Create;
//******on calcule le volume de notre stream (Stream size fom length code)
BmpStream.Size := Length(Astring) div 2;
for i := 0 to (Length(Astring) div 2)-1 do
begin
mystr:=Copy(Astring,((i+1)*2)-1,2);
mystr:=trim(Mystr);
//****assigne our byte in stream (on ajout nos byte calculer au steam)
PByteArray(BmpStream.Memory)[i] := StrToInt('$'+Mystr);
end;
//**Revenir au debut de stream
BmpStream.Position:=0;
//form1.edit1.text := IntToHex(PByteArray(BmpStream.Memory)[0],2); // ça vous donne 42=debut bitmap correct car 42,4D=B M
try
Bmp1 := TBitmap.Create;
BmpStream.Position := 0;
Bmp1.LoadFromStream(BmpStream);
FDFMREADER.Image1.canvas.Draw(0,0,Bmp1);
bmp1.SaveToFile('temps1.bmp');
finally
Bmp1.Free;
BmpStream.Free;
end;
//**************************************
procedure TFDFMREADER.ReadDFM(Filenamee:string);
label 1;
Var
ReadString:TStringList;
linee,wordd:string;
I, Llength:integer;
texte:Ansistring;
begin
//****je vai pas parler de creation car tous le monde vas le savoir un jour
ReadString:=TStringList.create;
//********************************************
ReadString.LoadFromFile(filenamee);
pb1.Max:=ReadString.Count;
i:=0;
//*****on vas chercher notre "Picture.Data = { " ou se trouve le Block de donnée de bitmap
//*****search "Picture.Data = { " the Block of bitmap hex code
while (i < ReadString.Count-1) do
begin
inc(i) ;
wordd:='';
linee:=readstring[i];
linee:=trim(linee);
wordd:=copy(linee,0,7);
if lowercase(wordd)='picture' then
while (linee <> 'end') do
begin
inc(i);
//**********to be freeeeeeeee*********
application.ProcessMessages;
linee:=readstring[i];
linee:=trim(linee);
Llength:=length(linee);
//****"{" it mean the end of Block data"
if copy(linee,Llength,1)='}' then
begin
linee:=copy(linee,0,Llength-1) ;
memo1.Lines.Add(linee);
pb1.Position:=i;
goto 1;
end else
memo1.Lines.Add(linee);
pb1.Position:=i;
end;
end;
1: begin
texte:='';
Edit1.Text:=copy(memo1.lines.Text,24,24);
memo1.Lines.Text:=copy(memo1.lines.Text,25,length(memo1.Lines.Text));
//******** HEX CODE saint*****clean our result*********
for i:=0 to memo1.Lines.Count-1 do
texte:=texte+trim(memo1.Lines.Strings[i]);
HexStr2Bmp(texte); //**********Here the Procedure************
end;
end;
 Conclusion
Conclusion tous personne désire de faire un composant pour u charger des fichier sans utiliser les ressources RES DCR de delphi directemnt dans votre Executaple pour faire des installers par exemple, c le moment de la même façon que Delphi enregistre les donnée de bitmap dans un fichier ASCII (.DFM) .
 Historique
- 26 mars 2008 10:12:26 :
- Modification pour évité d'être un menteur :D.
- 26 mars 2008 10:16:34 :
- évite les bla bla de @WhiteHippo qui me suit par tous :D.
 Sources du même auteur
 Sources de la même categorie
 Commentaires et avis
 Discussions en rapport avec ce code source dans le forum
valeur hexadecimal d'un nombre [ par fabiin ]
Salut !Comment faut-il fairepour connaite la valeur hexadecimal d'un nombre ???Merci par avance@+Fabs
ASCII [ par Shadow ]
salut je veux utiliser les valeurs ascii du clavier comment ?exemple quand j appuies sur echap ça quitte le programme
Code ASCII -> Son caractère correspondant [ par Fabiin ]
Salut !Quel fonction permet de passer du code ASCII en sont caractère correspondnat ???l'inverse de Ord()Merci par avance@+Fabs
dessin sur un bitmap [ par jlg75 ]
J'ai commencé un petit prog de dessin pour mes débuts en DELPHI.Je dessine sur un bitmap (feuille blanche pour l'instant),chargé dans une TImage. J'ut
Convertir un bitmap en icone [ par sebastienbro ]
J'aimerai savoir comment convertir un bitmap, contenu dans une Timage, en icone
Convetir une imag en Bitmap [ par sebastienbro ]
Je veux convertirune image en ICO, mais il me met une erreur : Image icône incorrectAidez moi !!!!!
COMMENT FAIRE UNE BOUCLE FOR ? [ par LeKamé ]
salut !!jutilise delphi 5 !!et je voudrait savoir comment on peut faire un boucle qui traite sur la valeur asciid'une phraseexemple: je déclare une va
Valeur ASCII (delphi) [ par costello ]
Comment obtenir le N° correspondant à un caractère ASCII ? => contraire de la fonction ' chr (x) '=> en Q-Basic c'était ' ASC (x) 'merci de l'ai
form et dll [ par somewhere ]
est il possible de créé une dll contenant une forme mais avec 3 fichiers:madll.dpr,unit1.pas,unit1.dfmde maniere a ajouter simplement des composants a
Bitmap, tableau de stockage .... [ par dami ]
Bonjour a tous. Pour les besoins d'OpenGL, j'ai besoin de transformer mon Jpeg en BMP puis de stocker le BMP sous forme de tableau. J'ai récupéré et a
|
Derniers Blogs
 [SHAREPOINT] LES SESSIONS TECHDAYS 2012.[SHAREPOINT] LES SESSIONS TECHDAYS 2012. par Patrick Guimonet
Voici donc pour ceux qui n'ont pas pu venir, ou ceux qui n'ont pas pu toutes les suivre la liste des sessions SharePoint aux TechDays 2012, que je mettrais à jour dès que les liens des vidéo seront disponibles. Ou ici : http...
Cliquez pour lire la suite de l'article par Patrick Guimonet TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3 par ROMELARD Fabrice
Speaker: Bernard Ourghanlian Cette session est comme chaque jour transmise en live par BrainSonic, et j'ai donc suivi cette troisième pleinière par ce moyen sur mon iPad . Elle est dédiée comme chaque année à la mise en perspective de l'é...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE !MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE ! par Vko
Hier durant une session dédiée aux Techdays 2012, j'ai eu le plaisir d'annoncer la sortie de la Béta 2 de Mishra Reader. C'est quoi ? Pour les utilisateurs, c'est une vraie expérience de lecture de flux RSS sur Windows. Rien à voir avec les produit...
Cliquez pour lire la suite de l'article par Vko [FRAMEWORK 4] LES TASKS ET LE THREAD UI[FRAMEWORK 4] LES TASKS ET LE THREAD UI par fathi
Je viens de passer quelques temps au TechDay's et j'ai pu voir pas mal de session intéressante. Par contre une chose m'a un peu étonné lors de certaines de ces sessions qui abordaient les améliorations du framework .NET (donc le 4.5) : en gros, bea...
Cliquez pour lire la suite de l'article par fathi WORKFLOW FOUNDATION 3 A UN PIED DANS LA TOMBEWORKFLOW FOUNDATION 3 A UN PIED DANS LA TOMBE par JeremyJeanson
Depuis déjà un an, je conseille vivement les utilisateurs de Workflow Foundation 3 à migrer vers la version 4. L'information qui va suivre ne devrait donc pas trop prendre au dépourvu les personnes qui m'ont suivi. Je profite de ce poste, pour faire le re...
Cliquez pour lire la suite de l'article par JeremyJeanson
Logiciels
 Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Easy-Planning (1.0.0.1)EASY-PLANNING (1.0.0.1)Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ... Cliquez pour télécharger Easy-Planning COLLECTOR PLUS (3.00B)COLLECTOR PLUS (3.00B)COLLECTOR PLUS version 3.00B est un logiciel utilisant une base de données alimentée par :
- L... Cliquez pour télécharger COLLECTOR PLUS PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO LettresFaciles 2011 (8.0.0.1)LETTRESFACILES 2011 (8.0.0.1)LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types.
Son inte... Cliquez pour télécharger LettresFaciles 2011
|