Resmin datasını almak ve resim oluşturmak (Picture.Data)

Yazdığınız makaleleri ve üyelerimizin işine yarayacağını düşündüğünüz kodlarınızı gönderebilirsiniz. Bu foruma soru sormayın!
Cevapla
Kullanıcı avatarı
ender_arslanturk
Kıdemli Üye
Mesajlar: 709
Kayıt: 18 Şub 2005 03:38
Konum: İstanbul

Resmin datasını almak ve resim oluşturmak (Picture.Data)

Mesaj gönderen ender_arslanturk »

Ayrıca örnek proje rar dosyası ektedir.

Unit1.pas

Kod: Tümünü seç

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Image1: TImage;
    Image2: TImage;
    Label1: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation


{$R *.dfm}

function ComponentToStringProc(Component: TComponent): string;
var
  BinStream:TMemoryStream;
  StrStream: TStringStream;
  s: string;
begin
  BinStream := TMemoryStream.Create;
  try
    StrStream := TStringStream.Create(s);
    try
      BinStream.WriteComponent(Component);
      BinStream.Seek(0, soFromBeginning);
      ObjectBinaryToText(BinStream, StrStream);
      StrStream.Seek(0, soFromBeginning);
      Result:= StrStream.DataString;
    finally
      StrStream.Free;
    end;
  finally
    BinStream.Free
  end;
end;

function StringToComponentProc(Value: string): TComponent;
var
  StrStream:TStringStream;
  BinStream: TMemoryStream;
begin
  StrStream := TStringStream.Create(Value);
  try
    BinStream := TMemoryStream.Create;
    try
      ObjectTextToBinary(StrStream, BinStream);
      BinStream.Seek(0, soFromBeginning);
      Result:= BinStream.ReadComponent(nil);
    finally
      BinStream.Free;
    end;
  finally
    StrStream.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Text:= ComponentToStringProc(Image1);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Image2:= (StringToComponentProc(Memo1.Text) as TImage);

  Image2.Left   :=  Image1.Left;
  Image2.Top    :=  Image1.Top+Image1.Height+5;
  Image2.Parent :=  Form1;
  Image2.Visible:=  True;
end;

initialization
RegisterClass(TImage);

end.

Unit1.dfm

Kod: Tümünü seç

object Form1: TForm1
  Left = 271
  Top = 104
  Caption = 'Form1'
  ClientHeight = 249
  ClientWidth = 637
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 8
    Top = 8
    Width = 273
    Height = 99
    AutoSize = True
    Picture.Data = {
      0954474946496D61676547494638396111016300F70000E8ECF57C8896E9EDF6
      7D89977E8796E8EDF3E6EDF5E9EEF47E8894E7EEF67F88977F8995E7EBF4E6ED
      F77B87957C8898E1E5EDD1D9E3C9D0DAC1C8D2E7EEF87C8894C5CDD7A9B2BD99
      A2ADADB5C0B5BDC8CDD4DE929CA8E9ECF396A0AC909AA68A95A1E8ECF7BAC2CC
      E9EDF8EAEDF49DA6B1808A968E98A4A2AAB5CAD2DC8C96A2BCC4CD949EAA7E8A
      98818A99CED6E07D899586909CE7EDF37D8999959DAC88939F7D8695BEC6D082
      8C98D1D9E5848E9A818D9CB4BCC6C2CAD4E5ECF68E97A6C6CDD8D7DEE8DFE6F0
      848D9CEAEEF7E9ECF5DCE3EDCCD3DDE6EAF37D8793A7AFBAB2BAC5959DAA7B88
      98B0B8C2E4EBF5E2E9F3D0D7E1D4D8E1D6DDE5E5ECF4E3EAF2A8B0BBEAEDF680
      8C9AE1E7F0A4ACB7D9DDE6DEE5EFA4ADB9E3EAF4C8CFD9DCE3EB8992A1D8E0EA
      DAE1EBA5ADBAE5E9F2DAE1ECB1B9C4BFC7D2D9DEE7A6AEB9E4E8F1E7EEF4B8C0
      CBDDE4EEA2ACB8C8CED698A0AB929AA7D4DAE57B8996929AA58F97A4A6B0BAAC
      B4BE8793A1959DA8D6DDE787909FB0B9C5BFC8D1E5EEF7EAEFF59199A49AA4B0
      8D95A0BCC4D0C1C7D19199A6BCC3CEE4EBF3AEB7C3868E9B89919C919AA98088
      958D96A59CA4AEA4AEBA84909EE2E9F1D5DCE6838C9B9EA9B5DFE6EEA0A8B3B8
      BFC97C89997E87987C8A97B1BBC5B8C1D0979FAA8C95A4DAE1E9848C97E7EBF6
      E8EFF888909BC7D0D9969EA98E96A1868E99848E98E1E8F0E9EEF2E1E8F28991
      9E8A929FD9E0E8D5DBE486929EDDE6EF7B8793E6EBF1BCC6D07F87948C98A4B3
      BCC57F8899A3ABB8949CA79299A39EA7B4A3A7B27F8993A4AEB8E5EEF5808893
      C3CCD5949EA8C4CBD67E8A968D97A3818D997B8797B2B8C4D3DCE5838D99D7DE
      E6919DACDBE2EA8C949F8F98A7D5DEE7EAECF8DDE0E7B4BAC6A3ADB7ACB2BEAB
      B4BDAFB8BFB1B7C3E8EDF1A6ACB88A949E8D939FE5E8EFDDE4EA9BA3B0D7E0E9
      9AA6B6E5EAF0B4BDC986909A84909C8D95A28C96A0949BAB828A958F9BA9BDC5
      D2ABB7C5B0B9C8858D9AEAEDF2878D9BE8EBF0A6B0BC808A94CBD4DD818B97CC
      D3DB8E98A2B7C0C9D9E2E9D9E2EBC0C4CF8C98A68E9AA621F90400000000002C
      000000001101630087E8ECF57C8896E9EDF67D89977E8796E8EDF3E6EDF5E9EE
      F47E8894E7EEF67F88977F8995E7EBF4E6EDF77B87957C8898E1E5EDD1D9E3C9
      D0DAC1C8D2E7EEF87C8894C5CDD7A9B2BD99A2ADADB5C0B5BDC8CDD4DE929CA8
      E9ECF396A0AC909AA68A95A1E8ECF7BAC2CCE9EDF8EAEDF49DA6B1808A968E98
      A4A2AAB5CAD2DC8C96A2BCC4CD949EAA7E8A98818A99CED6E07D899586909CE7
      EDF37D8999959DAC88939F7D8695BEC6D0828C98D1D9E5848E9A818D9CB4BCC6
      C2CAD4E5ECF68E97A6C6CDD8D7DEE8DFE6F0848D9CEAEEF7E9ECF5DCE3EDCCD3
      DDE6EAF37D8793A7AFBAB2BAC5959DAA7B8898B0B8C2E4EBF5E2E9F3D0D7E1D4
      D8E1D6DDE5E5ECF4E3EAF2A8B0BBEAEDF6808C9AE1E7F0A4ACB7D9DDE6DEE5EF
      A4ADB9E3EAF4C8CFD9DCE3EB8992A1D8E0EADAE1EBA5ADBAE5E9F2DAE1ECB1B9
      C4BFC7D2D9DEE7A6AEB9E4E8F1E7EEF4B8C0CBDDE4EEA2ACB8C8CED698A0AB92
      9AA7D4DAE57B8996929AA58F97A4A6B0BAACB4BE8793A1959DA8D6DDE787909F
      B0B9C5BFC8D1E5EEF7EAEFF59199A49AA4B08D95A0BCC4D0C1C7D19199A6BCC3
      CEE4EBF3AEB7C3868E9B89919C919AA98088958D96A59CA4AEA4AEBA84909EE2
      E9F1D5DCE6838C9B9EA9B5DFE6EEA0A8B3B8BFC97C89997E87987C8A97B1BBC5
      B8C1D0979FAA8C95A4DAE1E9848C97E7EBF6E8EFF888909BC7D0D9969EA98E96
      A1868E99848E98E1E8F0E9EEF2E1E8F289919E8A929FD9E0E8D5DBE486929EDD
      E6EF7B8793E6EBF1BCC6D07F87948C98A4B3BCC57F8899A3ABB8949CA79299A3
      9EA7B4A3A7B27F8993A4AEB8E5EEF5808893C3CCD5949EA8C4CBD67E8A968D97
      A3818D997B8797B2B8C4D3DCE5838D99D7DEE6919DACDBE2EA8C949F8F98A7D5
      DEE7EAECF8DDE0E7B4BAC6A3ADB7ACB2BEABB4BDAFB8BFB1B7C3E8EDF1A6ACB8
      8A949E8D939FE5E8EFDDE4EA9BA3B0D7E0E99AA6B6E5EAF0B4BDC986909A8490
      9C8D95A28C96A0949BAB828A958F9BA9BDC5D2ABB7C5B0B9C8858D9AEAEDF287
      8D9BE8EBF0A6B0BC808A94CBD4DD818B97CCD3DB8E98A2B7C0C9D9E2E9D9E2EB
      C0C4CF8C98A68E9AA608FF0001081C48B0A0C18308132A5CC8B0A1C38710234A
      9C48B1A2C58B18336ADCC8B1A3C78F20438A1C49B2A4C9932853AA5CC9B2A5CB
      973063CA9C49B3A6CD9B3873EADCC9B3A7CF9F40830A1D4AB4A8D1A348932A5D
      CAB4A9D3A750A34A9D4AB5AAD5AB58B36ADDCAB5ABD7AF60C38A1D4BB6ACD9B3
      68D3AA5DCBB6ADDBB770E3CAAD280080000675EBE2145040E088BE090D2430D0
      A1C3881057E626CD6B17E7950E000C342820C007420121EA3620D62D85E2A37A
      1BE74C7049CE1200050E20EC70408000378A2AA0F95CF4AEE8D03525FFB01146
      08174B10820B0FEEDBF704050826D026AA9731CE220002C118508F008100D8B3
      637FF080C03D17011628FF5F1EB4B9E8E7093E5418008D090D26F0E3C767B16B
      10812601C6932FEFDA6E089C073460C8009FB0525701082698605D5518320301
      FAEDD7537F7589E28B1BD0D9D48100722C604773AE85D89F5D067810407212FE
      24C00183099002022FE0D5586B31B1F8010127387710602C0400618A3EF195D7
      170BE0521060301D60C0070A1CC30011B81D29508F3F02D9138D0CA841002402
      451953027210E0085F0AF1E8638456EED56503A604C0075E8079C9525D371AC2
      C001AA2164669569EA24E424F704B0430477BA66C0792E7148402463AC98D09E
      68F6695302024DE0C000011C92405F021C2A537A0A3C7083A77A4E79A6A43975
      5AD71B035CD74B032152FF2AA74A0670104013715050A6A97CA25A9300140850
      86890B10000DAC9CCA2440043A0490C93A62EC0A009591FAAA6C016010304005
      01B8F002929DAE44A10106C0F100023180400809772550D70194512A100D0154
      3081A723CEBA9FBB780A4085BE20E9958202DADD20908C007BA4A35E28100003
      0B40D490855D7711915A97F36EDB038509EFC7988C2A017B01010F64A7070506
      8CF892004838B34005274010C30B7CD1B830BD301423001104A99C66BE2C1920
      822298168D401C5C00C000A225850658040124B1C02D1D9C210800FD82DC1C0D
      033870415E1D4BD829184C9BD40029D70DA0760003200004C589DAE504022D20
      700C00B02810016A0609FF40290B6A7F00F740612B56570A6AB4D400086C77BD
      F6025FE86812D00954F1C10DCED8AD2B064A6C9A2F65061CE0C1752E44907288
      D60290C0052824B0744A022CFE4005EB3980C0000A7C8167C8FDF1DC00103A40
      E00C8E3E1CF082C43AC65B0007DA12B044B03DA32A830083249E674A29983003
      0CC59E88A906A9A58C9273B15F72C101371EB32903610C03406279F5B56998AD
      D6F144E8A8A34A02009C9420C0FE21599068A020070460075308B85D00543086
      0264886285B308A50A60801080A2051B48C03F1EF083C808000FA680D5FE0CD0
      97D6A84205039801078620853FC4695687E2D4A194142ECA3400322B23DCE062
      22014D24420822094D5DFF0C2084702CE05298621BC14E748927F42D82135195
      0DF51103BE30E943A300803484F102D4A86A0400188111147129095CE0022DC2
      58429A339802742035FBA3000EE34638288E4400165080305060C78824405E0C
      B0460D10A0802466C7900BA8C311F2A7C38F184A001D68C0319C100251FCC06E
      5C908525C4108A40040102BE118E25784037B745211A6B300074DCB546B84D20
      039F84001720D0062BBC2E513EEBA3C2EE620146DC40022321575DCA108A03B2
      AD71017080029648000D444F8D1F0901A53A1001173CA3006B7004DB42B1034A
      60015358D84138BB39044AC020137408400F00F0890868462175992000B48000
      3AB460002E5880A0BC00FF13B0EDB09F7E2043033615C0BC30C00D3A988121B5
      D3367DCEC001F7A2502377F92F019CE1030C080104C280A90524A3556A43E275
      4EB40004944C01131080122E30429F15C45F42EA420B4460012058C0025608C5
      37FAC918C9CD49207EE882EA90A4B0C650000F0B28D9DA0CE980928E9419B840
      02F974F9109E41C11C224010041681295B28800025BD55139A1A80EE80F5019B
      480E0324E08854022C7F423087074207000AFC4110CCE0673F054204BC50B523
      AEB9812E54271212F6E508B703E9DA8EE9230468ABB160B8253401EB400088C0
      04131B411A6260031034431A5308C21452908A3BECE1B4A20DC217988100F144
      461184E05B2BE5770613FF5C8D041D101A026A00857ECA280154C08713730880
      097441552121616B7AC0360210F2908CDDD67AB0F38A2280CDA51C394007AA50
      8337D8700AC80880E000C02E0A12020302E157647A949FC8F0200F0520C15F10
      92B2BE6441172AF04003EC1204527820067ACD61A7DCC00BCBBCE4002310801F
      74C10079052CC100880225B6430015104001313801233E10031CDC03530AF0C0
      1A06022FEC46B191FDE901026001C008B440011D1408050E100F517C02087DE9
      CB08181007C74EE00045C8020E6EF01F0158572FAA595103AE20030FF4C00A1C
      20011BC4E00A3FF4C005E4185F63FC19C6C470C10E6E300F6E408620DCE44F30
      64B223A5FC600DD5FD95FF210200A3EA7E90C47B44C0036A10C11172908209B4
      837903B0013D1065E288704C2F8732C009F8D89F28B42AC6E112C8114E210BD5
      28091C8AB8F0044240415CB402110281579295164F0360A21232784394B3708C
      727440045818F1F8243AC49A89A1113D2800201024984385006142845B4F271A
      1134688124EFF2DB09D436807B4401052298001C2630812FBCA080608504887C
      4A973A1A8004030BC2A85FE02348AB86029BCA0007AA70050104231B9B785021
      A459005A9C420458731765BAE4D776D4C01224400108E68081128C6015227041
      1566EDD7C648F34E32B0820DC800B6C10C667077E13288205836384F400B6F76
      08990C60080760070711FF2841062C308708CCA10729601E72B4FDB1904F3434
      6CA0C171395D9723945B44142411319C708010E4A011DC8150EC52538A30B801
      5C58236C0F5AE1CE2228A15B4A40961FB0400BD8B12C97CBBA472E86E006760D
      0E5EFB36B31ACD3311041D8013D69001BC42F22ED5D9A1712E60C13D1470020E
      78C0033AF8400DB083009A7339231B27EF0B143085028C20C929F879EF0AC0B3
      0380A20629F08121AEC10E1FA141068D49350642C0AEFD2228017F108127B610
      BB6D28E1012778413FDAC0090CB4205A27B92E89EBF2043B902C006748230376
      1DA2A501CD3CFB259FA1C1902E4448D691A0FB407616A0CFA235CE9004E805DB
      0B0D118E618C068C9EA1FF8B1EDD9FA217818275B18023E27007368C6E00ED08
      DD7F00208B1A68004FAC14C018C211874990E000149006A71000383006A00402
      C562305AE61C4966052315003A500ED8A0055A200111004419873565D62523A2
      046310757D44012F80011766057B402AD124101B001E98E25C8C155D07840085
      40212083783A34018A300670C27329F068E7C1173C1319E38000685022364000
      22405098510046400AFA702802F004138001193050D360001AB00B26E001C8D0
      0600B00417F00674A00D0BD8337F300A40F00B25E350ADF255D6F10918200229
      1004E422184CC32162E028DCA61037B0006E880038B001229119020004696356
      D8611D69934086D40FA1FF376A36D8186BB00398505758A31712506E04916457
      2018D450032EC0075DB0033ED20645407A58730507B00C032002480007055769
      DA050B187002FBD00B1290022A800225606A030002B3D63322200786504CF881
      00B9E023FA644CD8A100CC200781C00368200565205579010120004CAD51830E
      C15C0734002D10010F445975810875F080DA811D36607DAD22076BD070FF4411
      F2323DE7A701DE0005502810299389017002769100244001BA62170DA00728F0
      0C373004EB6103563023C9A2010B10091EF0055D320617700E89000502800237
      1001151009C1200328100D4CB0070DB00A91C4061B72281DD06097D87D1CD825
      1992006E20021CB044E9FF98933AA91D0A100620900146A03ACA100082E00564
      E2600D5117B6E25C038007964658F1A411FB96006D809339A92DCCA64C4A008F
      1C3144762106319002593422AA918938226CA106003C700C5205002FA0039752
      031BB0219D620050D0037DC00135E00946E0224A6007DCB0071D40020C60052D
      200FEFA00E6B5000BBA00F7D800924F44803510028339086163D92E1064E400A
      49F0583BF99939B93608200750100444430078F08F48D93775040029A00801B0
      4C01D00554A06F76512852891706D0069E7995C7A436044071DB87112304463E
      D00B1E9071B7D4172970297723100D206A1D30093B1003B8F02D09C05E20D00B
      97100151B00187100856FF0001ACB00404C0071EB00079E00787920551900220
      F0095BD0004BC00D7F0002B820069ED01A91793A9171044E7008DC7710EF4219
      9D920029800231601DC9049A0E9A8EA2C90120A0096C630251E02FAC44A07762
      A006F00C8B505620B50028E0444986201AA18706900856998E0463480A407131
      39A00F013611D008B0B065B7F10598E20F799132EE920535900C0440078A904A
      1ED03619000052100117A0051C700F1C100E16169B6923268C900733D01D72F0
      0560200483D009B1B00448E009B0002BFC39102F2035A7203E3029009200041A
      600A8C98422FF8A0A0B9360FB02D035032276201069045F0843532900042A007
      0B10524B24A286355917FF319523F3999ED98242C5711D779980300F50609DE7
      E74FA9210012607231763100E0032880015F701F7CE00509602208500EA3002B
      7501053C700120B0A76C135633405230300B30000301800A7AA9363C0000D880
      097A61A0AE310C2D00031F4050DD173B1780009D694849848E76AA935F1552DC
      D238086001E5D74A86A204069444EB884040406B88472309F008EBB89358991D
      C10912B002006CA0250BD71FB2A21747407D774326BB560B3000015B801D8B10
      0214602B0422052B700619A0029140780AD40235A0073C800B3C70B1D5D00743
      80050FA00036D0A2D66000B0800EF77A009D48191680291F40421091276D6002
      01D0027C3A0030403B5FFF75ADA0A98804D002B403526E138FD1A3173E10072F
      9844B87301E955A913916406100785B4934BC46CC1B97D36B75F5C7001E15102
      5DA0066AA0046AB004CBB00C93300922603B20E0033E4001FBF502CC90020520
      05AD520F678054658593D6C7362A100737000B48A043073A0C37000484B00B38
      B0A7EB20020D90011900A8AEA11A16701D72E0AC0E411950800A6B93360C85B3
      77EA5C238529EBD8AD8EA2103C53177B600227A50097E2236C93A44168739319
      4F6102A90B35B51C27A30E9102E9D00403900414BA1D01000352035608801F74
      500725F0082550023B60025FF0053D323BD6C12D336040C6B4001EC009129005
      A8C317A0271014540CBAFF8360B0B00294701D97F00C1EB00C08B65F02F1B803
      600809703D0DD117999A1D08C02D4BA5B90EDA3685A4361DDB5416301028B889
      7E25007330BCAADB0297F258192000D3C348F0F47C319963FEA21E9F99AD89B8
      0042A53262B676D0C417C9020010E00E8774B7FA6BA799B00901C00219B037E2
      23AA75B13FAC440128A0335D620067700C1F8000D1500935F074FD020086F800
      1F70431CE81A28232B38CA207CA02DD47BC250AC1D04600179A22F9BD217079C
      093B39030D4C22003377A156C56C6717D1E7AB179C4CAD820002D50002D9C614
      902078226A19F739AA11019820021A207D4CB55051FC990BA0063D607C7CE337
      F36A1760D4A906B00155FF40977EB302CFD30331D03656F0044F004406402404
      700C3EB03F3B2624A8713AC3E6A661701D87DAC77D3CC59C1236070CA9192003
      80909418631B75A41709503C0C600077B7BF0D8A005DA0200A12CB4294760060
      0462C0057F700ACF951DA96BCA768A007B9376AE01051A80074EC00523F00C79
      48021DFA0A59000AAF200688A01A5ED005D8B0042AC03649F0011FA003E1B001
      6840483A200E06500AD85008F35A1838BA65A25C480AC4CC278CCA4A0B370910
      04FD9C9308700154401960D4BD97E1B7BD56877F44C67657A73BA936083068DB
      EB7DFADC1806F00468400A26100318E058CC882926C7C7FEAC1D33000C97585F
      57B001B7B30012F002A8FFC00C8D670F386002F070A80B5002A961043870228F
      853B26475245E301286002C861055110057448C6A18C084DDC3629FDCF164054
      040A9D372008ADB2930B600289600980C1068F82AE1543C66EE745547077287D
      484F1B9B82D0B7BA07C7A22603BDE60368500706742948B44C4990440EA0C014
      5DD56CA3047CB1061B40336EB9361C667206C3096B3303BADB0A0D90A220DAA0
      D697AB9892A7B1991D15407D3870A1514731FB26097C4030CB48D876DA2A57CD
      A8028C20AAD0087B6AADDAD1B1E7432309F1024E600772C00337D00E3710DC37
      00066550DC485006F7234D1FD0D652DC026CE30099FC011CC001EA2C071C5002
      1A700384F0DBC2BD0287FFA0D7DA32B3ECD835D8B1CCAAAD1D08600A119002D0
      90401E700318F08D4A840D66207D31AB4CDD920837A0088C7848CA345217D68C
      608544DC42001CC00A7708005530D54F7CDE9F099CAD5DA93543054A4000BDAB
      9374804F1160A2FAA21DCE5D3497B203B19007B1100B8B000DD8800BB8F0B0CC
      DD5CD0E586D6E186BF697DAD95406F8D1CE30A8346EBE0E96802FE2BD961B558
      3EA2003AE0580A9004C640484D350BBF3BAED9DA82CE453017660351F355F7BB
      361980321C2D2B0610063650372DCEE32D580AADC17D79C10AB8600245AD931F
      700469A910661C9A9E9D4065159BD44BDBC6C4A0BFC98CC804A157D99BC7345D
      7CCEE3F5724017D65A25FF13E0CA080374B009AD72617A5E01660CE556D9A2A9
      4BADD0F50B1AB00753D0E9CD30055BB0051170DAE141E80F1E9B64CE7DAA9119
      05C0061A70C16ECB2EF98810A65EEBB67EEBB89EEBBA8C0095B001BEFE02BFBE
      0193002B1D40502DB20178CE3660B00A6134DAB4AEEBD01EEDD23EED270CD825
      75ED09447D286004945262A8313015FD0AAB4E260941EDE67EEEE84EED426E4C
      9862027AA09120730012D0E0DAB100FC303D45A610E9BEEFFCDEEF55DD5AED2A
      DFC74400497009F32A2F91B79326D040012D10FEFEF0101FF1A069E3D69144AD
      552C20860082089509AF9308D097B15CEE123FF2240FF177DB2A18FF9B8F203E
      DA05EE3A89016D30067DFFEBBD225FF2367FF3E69E44CE3DE803100366E0034F
      C0172990EC0EE009E83623358FF34ABFF484DE5A4F9B447C9A1D5F350343E00A
      DD60AC3DF899088002A21D1949CFF4601FF6BA5E2C0F900F06F002C9CEA00B60
      01C4FE520321F6701FF7A61E6824130311D006B2DB350B8001FC942FA121F780
      1FF8FE8C3B0190ABB690DA3919B5E1810A8258330521F8901FF938FB0036B0AD
      37EBAED7E72382D0ED0FDC1892FFF9A08FADCB98EC8968950ABC04B0020849B6
      34A1DFFAA0EF862D9AB39D3B7D1A60A670E3FAB80FF9D3E5302E5ED17B5EA141
      E02E8C91FBC42FF7DCD21D92DED50F0AF5043008AAE01CC51FFDD2CF50082008
      66102C1B32FDDA1FFD6D14830A62E0039DB2FDE2DFFAE44D524B700870101000
      3B}
  end
  object Image2: TImage
    Left = 8
    Top = 113
    Width = 273
    Height = 99
    AutoSize = True
  end
  object Label1: TLabel
    Left = 289
    Top = 227
    Width = 137
    Height = 13
    Caption = 'Te'#351'ekk'#252'rler Delphi T'#252'rkiye...'
  end
  object Memo1: TMemo
    Left = 288
    Top = 8
    Width = 345
    Height = 206
    Lines.Strings = (
      'Memo1')
    TabOrder = 0
    WordWrap = False
  end
  object Button1: TButton
    Left = 8
    Top = 220
    Width = 75
    Height = 25
    Caption = 'Dataya '#199'evir'
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 88
    Top = 220
    Width = 75
    Height = 25
    Caption = 'Resme '#199'evir'
    TabOrder = 2
    OnClick = Button2Click
  end
end
Selâm aleyküm Üstâdlarım..
Dosya ekleri
ResminDatasi.rar
Resmin datasının alınması ve yeniden resim oluşturulmasıyla ilgili proje dosyası...
(91.16 KiB) 234 kere indirildi
Cevapla