Developers/Delphi[델파이] rushmac
델파이 IDE동작 속도를 향상할 수 있는 AddIn(애드온) DelphiSpeedUp은 작 속도를 향상시키고 전체 IDE의 일반 속도를 높입니다. DelphiSpeedUp 3.1(No further development.) 지원하는 IDE C++Builder 5, 6 Delphi 5, 6, 7 Borland Developer Studio 2005, 2006 CodeGear RAD Studio 2007 (December Update) 델파이7 적용 IDE 다운받은 곳 https://www.idefixpack.de/blog/ide-tools/delphispeedup/ DelphiSpeedUp 3.1 – Andy's Blog and Tools No further development. DelphiSpeedUp..
뮤텍스(Mutex)로 프로그램 중복 실행 방지... 프로젝트 dpr 안에 프로그램 중복 실행 방지 코드 입력으로 간단히 처리 소스 program Project2; uses Forms, Windows, Unit1 in 'Unit1.pas' {Form1}; {$R *.res} Var Mutex: THandle; begin Mutex := CreateMutex(nil, True, '중복실행 방지'); if (Mutex > 0) and (GetLastError = 0) then begin try Application.Initialize; Application.Title := '중복실행 방지'; Application.MainFormOnTaskbar := True; Application.CreateForm(TFor..
Tip - 100원 이하 절사 방법 델파이 중 trunc 메서드 기능으로 100원 이하 절사 방법 내용 입니다. 100원 이하 절사 방법 코딩 내용 procedure TForm1.Button1Click(Sender: TObject); begin cxCurrencyEdit2.Value := trunc(cxCurrencyEdit1.Value/100)*100; //100원 이하 절사 end; 결과보기
Indy Component 들 중 IdHTTP라는 Component 이용하여 웹 통신 IdHTTP는 http프로토콜 제공해주는 7가지 중 GET, POST방식 모두 사용해서 통신하여 구현하고자 하는 프로그램에 맞게 사용 가능합니다. 1. Get 방식 일경우(http, https) pURL --> https://도메인주소.com?name1=value1&name2=value2 pAuthorization --> Authorization : 인증키 //{$region 'Https/ Get방식'}//pURL : 웹주소( https://도메인주소.com?파라미터) //pAuthorization : 인증키(Authorization)function httpsGet(pURL, pAuthorization ..
function GetMACAdress2: string; var NCB: PNCB; Adapter: PAdapterStatus; RetCode: char; I: Integer; Lenum: PlanaEnum; _SystemID: string; begin Result := ''; _SystemID := ''; Getmem(NCB ,sizeof(TNCB)); Fillchar(NCB^ ,Sizeof(TNCB) ,0); Getmem(Lenum ,sizeof(TLanaEnum)); Fillchar(Lenum^ ,Sizeof(TLanaEnum) ,0); Getmem(Adapter ,sizeof(TAdapterStatus)); Fillchar(Adapter^ ,Sizeof(TAdapterStatus) ,0); Len..
Developers/Git[깃허브] rushmac
개발 소스(Git) 대 쉽게 관리하는 소트웨어(sourceTree) 설치 (windows and Mac) https://www.sourcetreeapp.com/ Sourcetree | Free Git GUI for Mac and Windows A Git GUI that offers a visual representation of your repositories. Sourcetree is a free Git client for Windows and Mac. www.sourcetreeapp.com Git 개발 소스 관리하는 Cilent 툴 화면
Unit에 포함이 안 될 때 유용한 정보 The following table (which is not exhaustive) lists types and functions (but generally not constants) together with the unit required: Type Unit _Stream ADODB_TLB akTop, akLeft, akRight, akBottom Controls AnsiLowerCase SysUtils Application (the variable not a type) Forms Beep SysUtils or Windows (different functions) CGID_EXPLORER ShlObj CN_BASE Controls CoInitialize Activ..
procedure TForm1.FormShow(Sender: TObject); var wDate : TDateTime; y,m,d : word; begin wDate := now; //현재일자 //wDate := StrToDate(FormatMaskText('0000-00-00;0', '20190901')); //특정일자 DecodeDate(wDate,y,m,d); Label1.Caption := formatDateTime('yyyymmdd',wDate); MaskEdit1.text := formatDateTime('yyyymmdd',IncMonth(wdate,1)-d); //월말 MaskEdit2.text := formatDateTime('yyyymmdd',IncMonth(wdate,-1)-d+1); ..
function Tdm.Get_LocalIP: String; var WSAData : TWSAData; HostName: String; HostEnt : pHostEnt; begin WSAStartup(2, WSAData); SetLength(HostName, 255); GetHostName(PChar(HostName), 255); SetLength(HostName, StrLen(PChar(HostName))); HostEnt := GetHostByName(PChar(HostName)); if Assigned(HostEnt) then with HostEnt^ do Result := Format('%d.%d.%d.%d', [Byte(h_addr^[0]), Byte(h_addr^[1]), Byte(h_add..
