Developers/Delphi[델파이] IT.러쉬맥
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..
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..
