단단이아빠의 세상

본문

스탠포드 비즈니스스쿨제프리 페퍼 교수가 쓴 “Human Equation”, 즉 “사람방정식”이라는 책

본문

sql>define_editor='vi'
 

본문

window server 2003 + msssql 2000 에서 서버의 Administrator 암호를 바꾸고 난 다음에 sql server 를 실행시키면 "서비스가 로그온 실패로 인해 시작되지 않았습니다" 와 같은 에러가 나면서 실행이 안되는 경우가 있다.

시작->관리도구->서비스->MSSQLSERVER

속성탭에서 로그인을 보면 계정지정에서 암호를 바꾼 암호로 수정해주면 에러가 해결된다.

본문

1.에러 상황

 Win Xp Sp3 + Delphi 2009 + unidac 2.7 + Firebird 2.1 에서 작업한 파일을 다른 컴퓨터로 옮겨서 실행시키면 "CHARACTER SET KSC_5601 is not installed" 에러가 난다.

2.해결 방안

본문

ExtractFilePath(Application.exeName)

본문

wdir := DCB_target.Drive + ':' + FormatFloat('00',E_cha.Value);
if Not DirectoryExists(wdir) then CreateDir(wdir);

본문

if MoveFile(PChar(sOrgFileName),PChar(sNewFileName)) then
  begin
    ShowMessage(sOrgFileName+`을 `+sNewFileName+`로 옮겼습니다.`);
  end;
 

본문

권한 있는 응답과 권한 없는 응답

Non-authoritative answer:

2010-02-24 수정

기존에 잘못 알고 있던 내용

로컬 네임 서버로부터 로컬 도메인 영역 정보를 응답받은 경우 권한 있는 응답이라고 하며 다른 도메인 네임 서버로부터 도메인 영역 정보를 응답받은 경우 권한 없는 응답으로 표시된다.

본문

putty 를 쓸 때 copy 메뉴는 copy all to clipboard 밖에는 없어서 화면상의 모든게 저장된다.

일정한 영역만 저장하고 싶을 때는 마우스로 선택하고 마우스를 때면 클립보드에 선택된 영역이 저장된다.

본문

procedure TfmMain.GetData;
var
DirInfo: TSearchRec;
r,Loop,I : Integer;
begin
  if cbb1.ItemIndex < 0 then
  begin
    ShowMessage('가져올 파일 갯수를 선택하세요.');
    Exit;
  end;

  btnSaveExcel.Enabled := False;
  btnInputDB.Enabled := False;

  AdvStrGrid2.Clear;
  AdvStrGrid2.RowCount := 2;

  if not FolderDlg1.Execute then
    FolderDlg1.Execute;

  r := FindFirst(FolderDlg1.Directory + '*.xls', FaAnyfile, DirInfo);

  Loop := 0;

  While r = 0 do
  begin
    Application.ProcessMessages;
    if Loop = StrToInt(cbb1.Items[cbb1.ItemIndex]) then Break;

    if ((DirInfo.Attr and FaDirectory <> FaDirectory) and
          (DirInfo.Attr and FaVolumeId <> FaVolumeID))
    then
      //mmo1.Lines.Add(DirInfo.Name);
      SetFileName(DirInfo.Name);
      advgrdxcl1.XLSImport(FolderDlg1.Directory + '' + DirInfo.Name);
      AdvStrGrid2.ColCount := AdvStrGrid1.ColCount + 1;
      //DeleteFile(pChar(FolderDlg1.Directory + '' + DirInfo.Name));
      AdvStrGridFile.AddRow;
      AdvStrGridFile.Cells[0,Loop] := FolderDlg1.Directory + '' + DirInfo.Name;
    r := FindNext(DirInfo);
    Loop := Loop + 1;
  end;

  SysUtils.FindClose(DirInfo); // FindFirst에 의해 사용된 메모리를 해제
  btnSaveExcel.Enabled := True;
  btnInputDB.Enabled := True;
end;