Developers/Delphi[델파이] rushmac
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..
IT/synology[NAS] rushmac
사용하시는 DDNS가 있다면 그것을 도메인이름으로 사용하시면 됩니다. 1. DSM > 제어판 > 네트워크 서비스 > DDNS 설정 -예제: ssl.Synology.me 2. DSM > 패키지 센터 -Mail Server 설치 -Mail Station 설치 3. DSM > Mail Server 실행, SMTP 설정 -SMTP 활성화 체크 -도메인 이름: ssl.Synology.me -확인 4. DSM > 제어판 > DSM 설정 > 인증서 > 인증서 생성 ㅇ인증서 서명 요청(CSR) 생성 -개인 키 길이: 2048 -공통 이름: ssl.Synology.me -이메일: admin@ssl.Synology.me -국가: [KR] 남한 -시/도: Seoul -구/군/시: Seoul -조직: SSL -부서: SSL ..
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..
