Delphi 를 쓰다보면 가장 접하기 쉬운 그리드기능이 적어서 가벼운 그리드인 스트링그리드(TStringGrid)를 제어하는 법을 간단히 정리해 보았습니다.1. 스트링 그리드 ROW 삭제var i: Integer;begin // String Grid ROW 삭제 for i := StringGrid5.Row to StringGrid5.RowCount - 2 do StringGrid5.Rows[i].Assign(StringGrid5.Rows[i + 1]); StringGrid5.RowCount := StringGrid5.RowCount - 1; 2. 컬럼 숨기기StringGrid5.Colwidths[3] := -1; 3. 그리드 중간에 빈ROW 삽입하기TStringGridMove = class(..

파일에서 이미지 타입 읽기 파일 확장자는 이미지 포맷과 다르게 변경 할 수 있어서, 파일 헤더에서 이미지 타입을 읽어야 합니다.const US_BITMAP_TYPE = $4D42; US_JPEG_TYPE = $FFFFD8FF; US_GIF_TYPE = $4947; US_WMF_TYPE = $FFFFCDD7; US_TIF_TYPE = $4949; US_PCX_TYPE = $50A; US_PSD_TYPE = $4238; US_PNG_TYPE = $5089;procedure TfrmMain.Button1Click(Sender: TObject);var MyType: SmallInt; MyFile: TFileStream; sTemp: string;begin ..

로케일 정보 읽기시스템로케일 정보 읽어오는 방법 지금 사용하는 OS가 어떤 언어를 사용하고 있는지구분하기 위한 코드 이번 프로젝트에 중국어를 표현해야 되서 사용하게 된 코드var Buffer: array[0..2] of Char;begin GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SABBREVLANGNAME, Buffer, sizeof(Buffer)); //Buffer 이 "KOR" 이면 한국어 이다. //"CHI", "CHT" 이건 중국어end;CD-ROM 드라이브 목록 가져오기var CDRom: Byte;begin for CDrom := 65 to 90 do begin if GetDriveType(PChar(Chr(CDRom) + ':')) =..

웹으로 파일 전송(POST) 하는 프로그램 예전에 홈페이지나 블로그에 파일을 전송하는 프로그램을 만든적 있었는데 그때 소스를 정리해서 올립니다. ​ 폴더 선택 폴더 선택 다이얼로그 가 나와서 PC의 폴더를 선택하는 코드(SelectDirectory 사용)const SELDIRHELP = 1000;var Dir: String; OSVersionInfo: TOSVersionInfo;begin // 폴더 선택 // 작업 경로 설정 Dir := CurPath; OSVersionInfo.dwOSVersionInfoSize := sizeof(TOSVersionInfo); GetVersionEx(OSVersionInfo); if OSVersionInfo.dwPlatfo..

웹브라우져 컨트롤을 이용하여 출력하기 델파이로 프로그램 작업을 하다가 출력물이 필요해서 웹브라우져 컨트롤을 이용한 출력 프로그램을 만들었습니다. 델파이 스타터 버전에는 퀵리포트나 패스트 리포트가 없어서 HTML 을 디자인 하고 웹브라우져 컨트롤로 표시한후 출력하면 되겠다는 생각에 만들어 보게 되었습니다. 출력 데이터 생성var htmltext, errmsg: String; Fp: TextFile; IOError : integer;begin htmltext := '' + #10#13; htmltext := htmltext + ''; htmltext := htmltext + '성명' + Edit1.Text + ''; htmltext := htmltext + '생년월일' + Edit2.Text +..

DirectShow 기본 Cam 프로그램DirectShow 기본 클래스 ​필더그래프 생성, Com 초기화필더생성필더 핀 연결캠(WebCam) 장치 가져오기DSUtils 는 DSPack 에 포함된 소스 입니다.unit uBaseDShow;interfaceuses Winapi.Windows, {DirectShow 헤더와 ActiveX 헤더 추가} Winapi.ActiveX, Winapi.DirectShow9, DSUtils;type TBaseDShow = class(TObject) private public FilterGraph: IGraphBuilder; // 필터그래프의 인터페이스 중의 하나. MediaControl: IMediaControl; VideoWindow: IVide..