마이그레이션_워크샵_이슈공유
Comments
 Share
The version of the browser you are using is no longer supported. Please upgrade to a supported browser.Dismiss

 
%
123
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
ABCDEFGHIJKLMNOPQRSTUVWXYZ
1
2017년 11월 마이그레이션 워크샵과정 이슈 공유
2
업체명구분이슈원인 / 조치방법처리완료여부
3
대일사이언스컴포넌트CAMIS 컴포넌트 마이그레이션완료
4
쉥커코리아컴포넌트procedure TfLogin.IdFTP1PacketRecvd(Sender: TObject);
begin
  ProgressBar1.Min := 0;
  ProgressBar1.Max := IdFTP1.BytesTotal;
  Label2.Caption := '(' + FormatFloat('##,###,###', IdFTP1.BytesRecvd)+ ' Bytes / '
                 +  FormatFloat('##,###,###', IdFTP1.BytesTotal)+' Bytes)';
  ProgressBar1.Position := IdFTP1.BytesRecvd;
end;
procedure TForm2.IdFTP1Work(ASender: TObject; AWorkMode: TWorkMode;
AWorkCount: Int64);
begin
Label2.Caption := '(' + FormatFloat('##,###,###', AWorkCount)+ ' Bytes / '
+ FormatFloat('##,###,###', ProgressBar1.Max)+' Bytes)';

ProgressBar1.Position := AWorkCount;
end;

procedure TForm2.IdFTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
AWorkCountMax: Int64);
begin
ProgressBar1.Min := 0;
ProgressBar1.Max := AWorkCountMax;
end;
완료
5
쉥커코리아컴포넌트SMTP 예제컴포넌트 추가
SMTP: TIdSMTP;
MailMessage: TIdMessage;

샘플코드
SMTP.Host := ''; // host address
SMTP.Port := 25;

MailMessage.From.Address := ''; // From email address
MailMessage.Recipients.EMailAddresses := Edit2.Text;//'hskim@embarcadero.kr';

MailMessage.Subject := Edit1.Text;
MailMessage.Body.Text := Memo1.Lines.Text;
MailMessage.CharSet := 'UTF-8';

// uses IdAttachmentFile;
MailMessage.MessageParts.Clear;
TIdAttachmentFile.Create(MailMessage.MessageParts, Filename);
TIdAttachmentFile.Create(MailMessage.MessageParts, Filename2);

SMTP.Connect;
SMTP.Send(MailMessage);
if SMTP.Connected then
SMTP.Disconnect;
6
쉥커코리아컴포넌트TLabel의 배경색이 표시되지 않습니다.: TLabel\n Transparent = False\n

아크로에디트 등의 텍스트 툴 이용(http://www.acrosoft.pe.kr/board/download)
7
쉥커코리아컴포넌트TPanel의 배경색이 표시되지 않습니다.: TPanel\n ParentBackground = False\n
8
쉥커코리아문법type TBtnClass = (GeneralForm, DetailForm, SearchForm, SearchPrintForm, PrintForm, DisplayForm, ComCodeForm);uses 절에 System.Variants 추가
9
대일사이언스컴포넌트TdxDBGrid 마이그레이션TcxGrid 로 변경
https://www.devexpress.com/Support/Center/Question/Details/DQ13868/convert-from-tdxdbgrid-v3-to-the-new-v5

DevExpress Help 파일(ExpressQuantumGrid)에서 Converting으로 검색 후 Converting to ExpressQuantumGrid 참고

이전버전 델파이에 최신 컴텀컴포넌트 설치 후 Import 기능 활용할 것
10
대일사이언스컴포넌트TExcelApplication, TExcelWorksheet, TExcelworkbook 컴포넌트 사용방버http://tech.devgear.co.kr/delphi_qna/423589
11
사용법FireDAC으로 SQLServer 연결http://docwiki.embarcadero.com/RADStudio/Tokyo/en/Connect_to_Microsoft_SQL_Server_(FireDAC)
12
BDE Alias 방식 FireDAC에서 구현(FDManager 활용)procedure InitFDManager;
var
DBDatabase, DBUserName, DBPassWord: string;
oParams: TStringList;
IniFile: TIniFile;
begin
if not Assigned(FDManagerInstance) then
begin
FDManagerInstance := TFDManager.Create(nil);
DBDatabase := '192.168.100.7/orcl';
if FileExists('\Rom21\Account.ini') then
begin
IniFile := TIniFile.Create('\Rom21\Account.ini');
DBDatabase := IniFile.ReadString('DataBase','DataBase','192.168.100.7/orcl');
DBUserName := IniFile.ReadString('DataBase','UserName','account');
DBPassWord := IniFile.ReadString('DataBase','PassWord','account');
IniFile.Free;
end;

oParams := TStringList.Create;
oParams.Add('Database=' + DBDatabase);
oParams.Add('User_Name=' + DBUserName);
oParams.Add('Password=' + DBPassWord);
oParams.Add('CharacterSet=UTF8');

// FDQuery.ConnectionDefName or FDQuery.ConnectionName에 'Oracle' 적용할 것
FDManagerInstance.AddConnectionDef('Oracle', 'ora', oParams);

// TFloatField를 유지하도록 MapRules 적용
FDManagerInstance.FormatOptions.AssignedValues := [fvMapRules];
FDManagerInstance.FormatOptions.OwnMapRules := True;
FDManagerInstance.FormatOptions.MapRules.Add(dtFmtBCD, dtDouble);
FDManagerInstance.FormatOptions.MapRules.Add(dtBCD, dtDouble);

oParams.Free;
end;
end;
13
쉥커코리아UpdateSQL1[arInsert].ParamByName('AWBNo').Value := lsAwbNo;
FDUpdateSQL1.Commands[arInsert].ParamByName('AWBNo').Value := IsAwbNo;

테스트 필요
14
UpdateSQL1.ExecSQL(arInsert);FDUpdateSQL1.Commands[arInsert].Execute;

테스트 필요
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
Loading...
 
 
 
201711
Constants
201706
201703
201612
dxGrid_cxGrid_매핑
201609
201606