//JPG-Bild als Stringkonstante speichern.

//Lade das Programm bildalsstrinspeichern.zip von der 
//Downloadseite für Quellcode herunter.


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    B_Lies_JPG_als_Text_ins_Clipboard: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    B_Schliessen: TButton;
    Image1: TImage;
    Die_Strinkonstanten_ins_JPG_umwandeln: TButton;
    OpenDialog1: TOpenDialog;
    Label5: TLabel;
    procedure B_Lies_JPG_als_Text_ins_ClipboardClick(Sender: TObject);
    procedure B_SchliessenClick(Sender: TObject);
    procedure Die_Strinkonstanten_ins_JPG_umwandelnClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

//Dies beiden Konstanten können durch Laden eines beliebigen Bildes ersetzt werden.
const strtext =
'ÿØÿà(8JFIF())(()()((ÿÛ(C(C:<?<9C?>?FDCH(B+(MM(Q:=0B`Ued_U][jx™�jq�s[]…µ†�ž£<­<g€'+
'¼Éº¦∑™¨<€ÿÛ(C)DFF(K(N++N€n]n€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€ÿÀ'+
'(90(((L+)J(*9)+9)ÿÄ(G(()-))))))(((((((()*+,-./0123ÿÄ(µ8(*)++*,+——,,(()})*+(,9-:I'+
'1A.;Qa/Jq<2�‘¡0KB±Á=RÑðL3br‚12>?@ABMNO()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz'+
'ƒ„…†≠ˆ‰Š’””•——≈™š"£€√¦§¨©ª23´µπ·¸¹ºÂÃÄÅÆ∑ÈÉÊÒÓÔÕÖ×Ø≥≤áâαäåæγèéêñòóôõö÷øùúÿÄ(G)(+'+
')))))))))(((((()*+,-./0123ÿÄ(µ9(*)*,,+,/-,,()*w()*+9,-I1.:AQ/aq;J2�0<B‘¡±Á1K3Rð='+
'brÑ2>L4áMñ?@ABNO()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz‚ƒ„…†≠ˆ‰Š’””•——≈™š"£€√¦'+
'§¨©ª23´µπ·¸¹ºÂÃÄÅÆ∑ÈÉÊÒÓÔÕÖ×Ø≥≤âαäåæγèéêòóôõö÷øùúÿ≤(4+)(*9+9(?(µ©_ÝÃ{,qHBN66ƒŽ/·'+
'©ªÉªj6ÁRRÌz(€ŸåS^:.32K�.@9�¦@γóÅV¸ÓnI<)‘{<Aγ+¡T§>¡+NÖžg,¹›m?.γÔ­T1¸Þ€žDc(qŒñU?µ‾'+
'¿γ¿β8¿áI3]Þ�BNm¬G3Œ;Ž*SmöCg’f_6E≤‹×AεøαüóQ1¨AF√œßD6í·CØ≥Ófyìc’VÜ휜c¹"™£ÿ(È2Gø?β'+
'„h¨ŸÄΈü(∑Õcy5I„hÎx8QžÂ­A.tØ•\1αA(Œ�£Œdÿ(Jf½lVe¹P6¸2∑?Åÿ(êβUJYγ¾tB+6NΔ.:öγ*êRu”y'+
'­È·0¿K}&ÃWy6Øí‰sΔ.∫銃Qµ¹7æÈL™∫ÝS…QÓéQÝéòZ¦òC®HÈE/lÓN¸žõÑC4Û° 4u∑=�B4Ô£S5n]oγ0”›'+
'N3ÜÞÑÿ(äA7ü3ÿ(B4Tö�‹{Xâα*¼α׿εE9;É3x<L≠&BMCGJ†V@HÖ5΄à”mHa�ºüG∫ÿ(ÕE<α9GaJ2[�-ÃR¼'+
'qγ„@¹KL`{q”Z>:dVm¿NI1�ÄcGAE<s≤<±V^@ ”¿Rõ<QPYÿ≥';

s01 =
'†�~/x0€€€€€€^@€€€€€€€�wg-~f4≈DŸ|€€€€€€€€€€€€€€€€�~/}23ƒˆr~€€€€€€€€€'+
'€€€€€€€Ÿ}€Œ  @€@„≈’�€‚€€†”ˆ��€H€€’@€€‚…@@„�‚�€ˆ� �€€†¡DP@€Z@€€‰)@¡’„€≈� H€�€';


var
  Form1: TForm1;

implementation

uses unit2,Clipbrd,jpeg;

{$R *.DFM}

procedure TForm1.B_Lies_JPG_als_Text_ins_ClipboardClick(Sender: TObject);
begin
  LiesDiBinaerdateiInDasClipboardein;
End;

procedure TForm1.B_SchliessenClick(Sender: TObject);
begin
  close;
end;

procedure TForm1.Die_Strinkonstanten_ins_JPG_umwandelnClick(Sender: TObject);
  var b: string;
      ms: TMemoryStream;
      jpg: TJPEGImage;
begin
  b := TextStrToBinaerst(strtext,s01,true);
  ms :=tmemorystream.Create;
  jpg := TJPEGImage.Create;
  try
    ms.Seek(0, 0);
    ms.Write(Pchar(b)^, length(b));
    ms.Seek(0, 0);
    jpg.LoadFromStream(ms);
    image1.Picture.Bitmap.Assign(jpg);
  finally ms.free; jpg.free End;
end;

end.