//

//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.