::: µ¨ÆÄÀÌ Tip&Trick :::

µ¨ÆÄÀÌ Tip&Trick ¼º°Ý¿¡ ¸ÂÁö ¾Ê´Â ±¤°í,ºñ¹æ,Áú¹®ÀÇ ±ÛÀº Áï½Ã »èÁ¦Çϸç
³»¿ëÀ» º¹»çÇÏ¿© »ç¿ëÇÒ °æ¿ì ¹Ýµå½Ã ÀÌ°÷(http://www.howto.pe.kr)À» Ãâó·Î ¸í½ÃÇÏ¿© ÁÖ¼¼¿ä


Category

  ±è¿µ´ë(2003-03-05 20:55:53, Hit : 5590, Vote : 1584
 Convert between a DFM and a TXT file

// µ¨ÆÄÀÌÀÇ ÆûÆÄÀÏ DFM (binary Delphi Form File) À» ÀÏ¹Ý ÅؽºÆ® ÆÄÀÏ·Î
// º¯È¯ÇÏ´Â ¹æ¹ýÀº ObjectResourceToText¿Í ObjectTextToResource ¸¦ »ç¿ëÇÕ´Ï´Ù
// ObjectResourceToText : converts the binary representation of an object
//        resource into more readily understandable text.
// ObjectTextToResource : converts a symbolic text representation of an object
//        into the binary representation into Delphi's internal binary representation.

unit Unit1;

interface

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

type
   TDFMorTXT = (ConvertToForm, ConvertToText);

type
  TForm1 = class(TForm)
    OpenDialog1: TOpenDialog;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
{$R *.DFM}

function ConvertFormOrText(FileToConvertFrom: string;
                           ConversionType: TDFMorTXT): boolean;
var
  InputStream, OutputStream: TFileStream;
  FileToConvertTo: string;
begin
  Result := True;
  FileToConvertTo := FileToConvertFrom;

  {ÆÄÀÏÀÇ È®ÀåÀÚ¸¦ º¯È¯ÇÏ´Â ¹æ¹ý¿¡ µû¶ó ¹Ù²Û´Ù}
  case ConversionType of
    ConvertToForm: {TXT -> DFM}
      begin
        FileToConvertFrom := SysUtils.ChangeFileExt(FileToConvertFrom, '.TXT');
        FileToConvertTo   := SysUtils.ChangeFileExt(FileToConvertFrom, '.DFM');
      end;
    ConvertToText: {DFM -> TXT}
      begin
        FileToConvertFrom := SysUtils.ChangeFileExt(FileToConvertFrom, '.DFM');
        FileToConvertTo   := SysUtils.ChangeFileExt(FileToConvertFrom, '.TXT');
      end;
  end;

  try
    try
      {file stream À» ¸¸µç´Ù}
      InputStream  := TFileStream.Create(FileToConvertFrom, fmOpenRead); {Àбâ¿ë}
      OutputStream := TFileStream.Create(FileToConvertTo, fmCreate); {¾²±â¿ë}

      {º¯È¯}
      case ConversionType of
        ConvertToForm: ObjectTextToResource(InputStream, OutputStream);
        ConvertToText: ObjectResourceToText(InputStream, OutputStream);
      end;
    except
      on EStreamError do
        Result := False;
    end;
  finally
    InputStream.Free;
    OutputStream.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    if UpperCase(ExtractFileExt(OpenDialog1.FileName)) = '.DFM' then
      ConvertFormOrText(OpenDialog1.FileName, ConvertToText) {DFM -> TXT}
    else if UpperCase(ExtractFileExt(OpenDialog1.FileName)) = '.TXT' then
      ConvertFormOrText(OpenDialog1.FileName, ConvertToForm); {TXT -> DFM}
  end;
end;

end.






531   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ÅؽºÆ® ÆÄÀÏ ÇÕÄ¡±â(Merging)  ±è¿µ´ë 2003/03/07 5770 1348
530   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ¹®ÀÚ¿­ÀÇ ¹ÙÀÌÆ®¼ö°¡ ¾Æ´Ñ ½ÇÁ¦ ±ÛÀÚ¼ö ±¸ÇÏ±â  ±è¿µ´ë 2003/03/07 5769 1288
529   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] focus °¡ ÀÖ´Â ÄÜÆ®·Ñ¿¡ Å׵θ® Ç¥½ÃÇÏ±â  ±è¿µ´ë 2003/03/05 5769 1481
528   [µ¥ÀÌÅͺ£À̽º] ORACLE ³ª SQL Server ¿¡¼­ ·¹ÄÚµå ¹øÈ£  ±è¿µ´ë 2003/03/04 5769 3148
527   [µ¥ÀÌÅͺ£À̽º] Query.RecordCount = -1  ±è¿µ´ë 2003/03/07 5761 1356
526   [COM/OLE] TWebBrowser ¼øÂ÷ ³×ºñ°ÔÀÌ¼Ç ¿¹Á¦  ±è¿µ´ë 2004/10/01 5756 1340
525   [À©µµ¿ìÁî API] Àüü È­¸é(Full Screen) ¸¸µé±â  ±è¿µ´ë 2003/03/29 5749 1486
524   [½Ã½ºÅÛ] µð½ºÅ©ÀÇ ³²Àº ¿ë·® µîµî...  ±è¿µ´ë 2003/03/05 5743 1578
523   [¾Ë°í¸®Áò] µÎ ¹®ÀÚ¿­ÀÇ À¯»çµµ °Ë»çÇÏ±â  ±è¿µ´ë 2004/09/04 5741 1314
522   [½Ã½ºÅÛ] NTFS ÆÄÀÏ ½Ã½ºÅÛ »ç¿ë ¿©ºÎ  ±è¿µ´ë 2004/08/25 5741 1532
521   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] INF ÆÄÀÏ ¼³Ä¡ÇÏ±â  ±è¿µ´ë 2003/03/26 5736 1413
520   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] MemoÀÇ Ä¿¼­¸¦ ƯÁ¤ À§Ä¡·Î º¸³½ÈÄ scroll ½ÃÅ°±â  ±è¿µ´ë 2003/03/05 5733 1307
519   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ÀÓ½ÃÆÄÀϸí ÀÚµ¿À¸·Î »ý¼ºÇÏ±â  ±è¿µ´ë 2003/03/07 5731 1822
518   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ListBox¿¡ Edit ¿Ã·Á Ç׸ñ ÆíÁýÇÏ±â  ±è¿µ´ë 2006/02/28 5727 1477
517   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ÄÄÆ÷³ÍÆ®¿¡ µ¿ÀûÀ¸·Î À̺¥Æ® ÇÒ´çÇÏ±â  ±è¿µ´ë 2004/10/08 5724 1316
516   [µ¥ÀÌÅͺ£À̽º] DB¿¡¼­ ÀÚÀ½(¤¡,¤¤,¤§....)À¸·Î SELECT ÇÏ±â  ±è¿µ´ë 2003/03/12 5722 1361
515   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] TObjectÀÇ ÇÁ·ÎÆÛƼ¸¦ ¹®ÀÚ¿­·Î ÂüÁ¶ÇÏ±â  ±è¿µ´ë 2003/03/06 5716 1725
514   [µ¥ÀÌÅͺ£À̽º] DB¿¡ ÀúÀåµÈ JPEG(JPG)¸¦ DBGrid¿¡ Ãâ·ÂÇÏ±â  ±è¿µ´ë 2003/03/06 5708 1368
513   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] 9°¡Áö ÆÄÀÏÁ¤º¸  ±è¿µ´ë 2003/03/05 5704 1455
512   [½Ã½ºÅÛ] ³» ÇÁ·Î±×·¥ÀÇ ½ÇÇà ¿ì¼±¼øÀÇ ¹Ù²Ù±â  ±è¿µ´ë 2004/07/24 5700 1567
511   [À©µµ¿ìÁî API] ÀÛ¾÷Ç¥½ÃÁÙÀÇ "Ç×»ó À§" °Ë»çÇÏ¿© ¼³Á¤ÇÏ±â  ±è¿µ´ë 2003/03/07 5692 1419
510   [À©µµ¿ìÁî API] ¸ð¼­¸®°¡ µÕ±Ù(rounded ends) TEdit ¸¸µé±â  ±è¿µ´ë 2003/03/07 5688 1441
509   [À©µµ¿ìÁî API] ÆûÀÇ ÃÖ´ë/ÃÖ¼ÒÈ­ ¸·±â  ±è¿µ´ë 2003/03/06 5688 1549
508   [À©µµ¿ìÁî API] µµ±¸¸ðÀ½ Bar´Â ¾î¶»°Ô ¸¸µå´ÂÁö...  ±è¿µ´ë 2003/03/04 5685 1614
507   [µ¥ÀÌÅͺ£À̽º] Stored Procedure ÀÛ¼ºÀ» ¾î¶»°Ô Çϳª  ±è¿µ´ë 2003/03/04 5682 1485
506   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ¸í·ÉÇà ÀÎÀÚ(command line argument) »ç¿ëÇÏ±â  ±è¿µ´ë 2003/03/05 5679 1460
505   [¾Ë°í¸®Áò] ±¸ºÐÀÚ(delimiter)¸¦ »ç¿ëÇÑ ¹®ÀÚ¿­ ÆĽÌ(parsing)  ±è¿µ´ë 2003/11/13 5671 1257
504   [À©µµ¿ìÁî API] Task bar ¿¡ ³ªÅ¸³ªÁö ¾Ê´Â ÇÁ·Î±×·¥ ¸¸µé±â  ±è¿µ´ë 2003/03/07 5663 1660
503   [½Ã½ºÅÛ] ¸¶¿ì½º Æ÷ÀÎÅÍ ¼Óµµ ¹Ù²Ù±â  ±è¿µ´ë 2003/03/06 5654 1396
502   [½Ã½ºÅÛ] ¿©·¯ ÇÁ·Î¼¼½º°£¿¡ ÀÚ·á °øÀ¯ÇÏ±â  ±è¿µ´ë 2003/03/04 5653 1471
501   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ¹®ÀÚ¿­ÀÇ ³¡¿¡¼­ºÎÅÍ °Ë»öÇÏ´Â Pos() ÇÔ¼ö  ±è¿µ´ë 2003/03/07 5647 1344
500   [À©µµ¿ìÁî API] ÇöÀç Å°º¸µå ÀÔ·Â ¾ð¾î ±¸ÇÏ±â  ±è¿µ´ë 2004/07/24 5646 1511
499   [½Ã½ºÅÛ] CD-ROMÀÇ º¯°æ¿©ºÎ¸¦ °¨½ÃÇÏ±â  ±è¿µ´ë 2003/03/07 5645 1470
498   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] TRichEdit ÄÞÆ÷³ÍÆ® ¾øÀÌ RTFÆÄÀÏ ÀμâÇÏ±â  ±è¿µ´ë 2003/03/05 5644 1599
497   [À©µµ¿ìÁî API] IE Àӽà ÀÎÅÍ³Ý ÆÄÀÏ Æú´õ ºñ¿ì±â2  ±è¿µ´ë 2004/08/11 5634 1485
496   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] µð·ºÅ丮 °Ë»öÇÏ¿© ÆÄÀÏ Ã£±â  ±è¿µ´ë 2003/03/05 5631 1650
495   [½Ã½ºÅÛ] ´Ù¸¥ Application »ý¼º°ú ¼Ò¸ê¿¡ ´ëÇÏ¿©...  ±è¿µ´ë 2003/03/04 5628 1530
494   [À©µµ¿ìÁî API] Ä¿¼­(ÄÉ·µ)ÀÇ ±ô¹ÚÀÓ ¼Óµµ¸¦ º¯°æÇÏ±â  ±è¿µ´ë 2003/03/07 5626 1505
493   [³×Æ®¿÷/ÀÎÅͳÝ] Read/Write to COM Port  ±è¿µ´ë 2003/03/07 5623 1376
492   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] Àý´ë°æ·Î¿Í »ó´ë°æ·Î °áÇÕ  ±è¿µ´ë 2004/08/25 5620 1580

[ÀÌÀü 10°³] [1]..[11] 12 [13][14][15][16][17][18][19][20]..[25] [´ÙÀ½ 10°³]
 

Copyright 1999-2025 Zeroboard / skin by zero