블로그 이미지
자료에 문제가 있을 경우, 확인하는대로 삭제처리 하겠습니다. 즐거운 하루 되시길...
05-14 07:07
Total
Today
Yesterday

카테고리

분류 전체보기 (199)
이야기방 (20)
공부방 (173)
개발관련&IT용어.. 등등; (7)
잡다구니 (8)
OS & Server (13)
NetWork (3)
DB (30)
Delphi (47)
LUA (0)
JAVA (6)
HTML (10)
XML (1)
ASP (5)
JSP (2)
자바스크립트 (27)
CSS (8)
ETC.. (6)
개발노트&관련잡다구니 (6)

달력

« » 2024.5
일 월 화 수 목 금 토
1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30 31

공지사항

최근에 올라온 글

[델파이] EncodeBase64

공부방/Delphi / 2018. 4. 6. 10:53
uses Soap.EncdDecd;
(bpl : soaprtl240.bpl)

function EncodeFile(const FileName: string): AnsiString;
var
  msStream: TMemoryStream;
begin
  msStream := TMemoryStream.Create;
  try
    msStream.LoadFromFile(Filename);
    Result := EncodeBase64(msStream.Memory, msStream.Size);
  finally
    FreeAndNil(msStream);
  end;
end;


저작자표시 비영리

'공부방 > Delphi' 카테고리의 다른 글

[델파이] delay  (0) 2018.04.06
[델파이] SendMessage - String 으로 넘기기  (0) 2018.04.06
[델파이] 예외처리 구분 경우 (try/except/finally)  (0) 2017.06.08
[델파이] 퀀텀그리드 짝수열 색상변경하기  (1) 2016.03.10
[델파이] Form 생성에 대한 정리  (0) 2015.12.14
Posted by 래채
, |

[델파이] 예외처리 구분 경우 (try/except/finally)

공부방/Delphi / 2017. 6. 8. 11:35

Application.MessageBox(PChar('시작'), '정보', MB_ICONINFORMATION);

// try문 외부에서 예외발생 경우
raise Exception.Create('예외경우 발생!'); // 아래 finally 구문 미실행 + Exit()

// try문 외부에서 Exit()할 경우
if 조건 then Exit(); // 아래 try..finally와 관계 없이 종료

try

  try
      ...
      raise Exception.Create('예외발생!'); // except + finally + next 을 모두 수행
      Exit(); // except + finally + next 을 모두 수행(=Exception.Create 와 함께 사용할 필요없는 구문)
      ...
  except
      on e: Exception do
      begin
         // 예외 발생시에만 수행 - finally + next 수행
         Application.MessageBox(PChar(e.Message), PChar('에러'), MB_ICONERROR + MB_OK);
          Exit(); // finally 까지 수행하고 종료 (next 미수행)
      end;
   end;
finally
   // 예외 발생 여부 및 try구문 내의 Exit() 유무에 상관없이 무조건 수행되는 구문
   FreeAndNill(obj);
end;

Application.MessageBox(PChar('next'), PChar('next'), MB_ICONERROR + MB_OK);

 

원본 링크 : http://byhou.tistory.com/375

저작자표시 비영리

'공부방 > Delphi' 카테고리의 다른 글

[델파이] SendMessage - String 으로 넘기기  (0) 2018.04.06
[델파이] EncodeBase64  (0) 2018.04.06
[델파이] 퀀텀그리드 짝수열 색상변경하기  (1) 2016.03.10
[델파이] Form 생성에 대한 정리  (0) 2015.12.14
[델파이] 중복실행 방지 유닛  (0) 2015.10.05
Posted by 래채
, |

[델파이] 퀀텀그리드 짝수열 색상변경하기

공부방/Delphi / 2016. 3. 10. 16:17

이벤트 : OnCustomDrawCell


if not ( AViewInfo.Selected ) then

  begin

    if ( Odd( AViewInfo.GridRecord.Index ) ) then

      ACanvas.Brush.Color := $00F4F4F4

    else

      ACanvas.Brush.Color := clWhite;

  end;

저작자표시 비영리

'공부방 > Delphi' 카테고리의 다른 글

[델파이] EncodeBase64  (0) 2018.04.06
[델파이] 예외처리 구분 경우 (try/except/finally)  (0) 2017.06.08
[델파이] Form 생성에 대한 정리  (0) 2015.12.14
[델파이] 중복실행 방지 유닛  (0) 2015.10.05
[델파이] DateUtils.pas 날짜 연산 정리  (0) 2015.05.28
Posted by 래채
, |

최근에 달린 댓글

글 보관함

티스토리툴바