Q&A
- Progress bar 처리에대한 질문입니다.
밑에 소스를 간단하게 설명 드리면 file시스템으로되어있는 데이타를 불러와서
하나의 file로 저장하는것입니다.
그런데 저장하는 진행상황을 표시하고 싶은데 file size를 어떻게 구해야할지
모르겠네여. 그리고 Progress Bar로 진행상황을 표시할려고 하는데 file이 5개 정도로 쪼개져 있어서 이것또한 난감하네여.
고수님들 보시고 한수가르쳐 주싶시요
procedure TFmExplorer.btDnldClick(Sender: TObject);
var
childOM,
SelOM: TOMItem;
Res: Integer;
mh : THANDLE;
stbuf : string;
szbuf : array [0..1024] of char;
i,
wl : longint;
FH1 : Integer;
iFileSize : Integer;
begin
if lvItemList.ItemFocused = NIL then Exit;
SelOM := TOMItem( lvItemList.ItemFocused.Data );
if SelOM = NIL then begin
my_MsgBox( '선택된 항목에 오류가 있어서 PC로 저장할 수 없습니다.' );
Exit;
end;
{$IFDEF HOLLY}
mh := CreateFile('C:Program FilesEchoDownloadTEST.MH',
GENERIC_WRITE,
FILE_SHARE_READ,
nil,
CREATE_ALWAYS,
FILE_ATTRIBUTE_NORMAL,
0);
if mh = 0 then begin
my_MsgBox( 'CreateFile(C:Program FilesEchoDownloadTEST.MH) Failed' );
Exit;
end;
StrPcopy(szbuf, SelOM.FullSubject +';'
+ IntToStr(SelOM.ItemType) + ';'
+ SelOM.MsgId);
WriteFile(mh, szbuf, length(strpas(szbuf)), wl, nil);
closehandle(mh);
strpcopy(szbuf, 'C:Program FilesEchoDownload'
+ DateToStrSelOM.AttachDate));
CreateDirectory(szbuf, nil);
if SelOM.Open <> resOK then begin
my_MsgBox( 'SelOM.Open Failed' );
Exit;
end;
wl := SelOM.List.Count - 1;
for i := 0 to wl do begin
childOM := SelOM.List.Items[i];
mh := CreateFile( PCHAR('C:Program FilesEchoDownload'
+ DateToStr(SelOM.AttachDate) + 'TEST.MH'),
GENERIC_WRITE,
FILE_SHARE_READ,
nil,
CREATE_ALWAYS,
FILE_ATTRIBUTE_NORMAL,
0);
if mh = 0 then begin my_msgBox( 'CreateFile(C:Program
FilesEchoDownloadTEST.MH) Failed' );
Exit;
end;
StrPcopy(szbuf, inttostr(i) + ';'
+ SelOM.FullSubject +';'
+ IntToStr(SelOM.ItemType) + ';'
+ SelOM.MsgID + ';'
+ SelOM.Creator + ';'
+ SelOM.OrigFName + ';'
+ SelOM.MIMEType + ';'
+ IntToStr(SelOM.RawExpiryDate) + ';'
+ IntToStr(SelOM.DeferredInt) + ';'
+ IntToStr(SelOM.RawMsgFlags) + ';'
+ IntToStr(SelOM.BBAccessCount) + ';'
+ IntToStr(SelOM.ListOrder) + ';'
+ SelOM.ItemClass + ';'
+ SelOM.DirectRef + ';'
+ IntToStr(SelOM.RawMsgFlags) + ';'
+ SelOM.CCharSet + ';'
+ IntToStr(SelOM.TotalKSize) + ';'
+ SelOM.Subject + ';'
+ DateToStr(SelOM.CreateDate) + ';'
+ DateToStr(SelOM.ReplyByDate) + ';'
+ DateToStr(SelOM.AttachDate) + ';'
+ SelOM.AckId + ';'
+ IntToStr(SelOM.Size) + ';'
+ IntToStr(SelOM.AbsoluteRef) + ';'
+ IntToStr(SelOM.Flags01) + ';'
+ IntToStr(SelOM.Flags2) + ';'
+ IntToStr(SelOM.RecipId) + ';'
+ IntToStr(SelOM.RawAccessCaps) + ';');
WriteFile(mh, szbuf, length(strpas(szbuf)), wl, nil);
closehandle(mh);
gUALServer.DownloadItem(childOM, 'C:Program FilesEchoDownload'
+ DateToStr(SelOM.AttachDate)
+ ''
+ 'Doc' + IntToStr(i)
+ '.dat');
end;
하나의 file로 저장하는것입니다.
그런데 저장하는 진행상황을 표시하고 싶은데 file size를 어떻게 구해야할지
모르겠네여. 그리고 Progress Bar로 진행상황을 표시할려고 하는데 file이 5개 정도로 쪼개져 있어서 이것또한 난감하네여.
고수님들 보시고 한수가르쳐 주싶시요
procedure TFmExplorer.btDnldClick(Sender: TObject);
var
childOM,
SelOM: TOMItem;
Res: Integer;
mh : THANDLE;
stbuf : string;
szbuf : array [0..1024] of char;
i,
wl : longint;
FH1 : Integer;
iFileSize : Integer;
begin
if lvItemList.ItemFocused = NIL then Exit;
SelOM := TOMItem( lvItemList.ItemFocused.Data );
if SelOM = NIL then begin
my_MsgBox( '선택된 항목에 오류가 있어서 PC로 저장할 수 없습니다.' );
Exit;
end;
{$IFDEF HOLLY}
mh := CreateFile('C:Program FilesEchoDownloadTEST.MH',
GENERIC_WRITE,
FILE_SHARE_READ,
nil,
CREATE_ALWAYS,
FILE_ATTRIBUTE_NORMAL,
0);
if mh = 0 then begin
my_MsgBox( 'CreateFile(C:Program FilesEchoDownloadTEST.MH) Failed' );
Exit;
end;
StrPcopy(szbuf, SelOM.FullSubject +';'
+ IntToStr(SelOM.ItemType) + ';'
+ SelOM.MsgId);
WriteFile(mh, szbuf, length(strpas(szbuf)), wl, nil);
closehandle(mh);
strpcopy(szbuf, 'C:Program FilesEchoDownload'
+ DateToStrSelOM.AttachDate));
CreateDirectory(szbuf, nil);
if SelOM.Open <> resOK then begin
my_MsgBox( 'SelOM.Open Failed' );
Exit;
end;
wl := SelOM.List.Count - 1;
for i := 0 to wl do begin
childOM := SelOM.List.Items[i];
mh := CreateFile( PCHAR('C:Program FilesEchoDownload'
+ DateToStr(SelOM.AttachDate) + 'TEST.MH'),
GENERIC_WRITE,
FILE_SHARE_READ,
nil,
CREATE_ALWAYS,
FILE_ATTRIBUTE_NORMAL,
0);
if mh = 0 then begin my_msgBox( 'CreateFile(C:Program
FilesEchoDownloadTEST.MH) Failed' );
Exit;
end;
StrPcopy(szbuf, inttostr(i) + ';'
+ SelOM.FullSubject +';'
+ IntToStr(SelOM.ItemType) + ';'
+ SelOM.MsgID + ';'
+ SelOM.Creator + ';'
+ SelOM.OrigFName + ';'
+ SelOM.MIMEType + ';'
+ IntToStr(SelOM.RawExpiryDate) + ';'
+ IntToStr(SelOM.DeferredInt) + ';'
+ IntToStr(SelOM.RawMsgFlags) + ';'
+ IntToStr(SelOM.BBAccessCount) + ';'
+ IntToStr(SelOM.ListOrder) + ';'
+ SelOM.ItemClass + ';'
+ SelOM.DirectRef + ';'
+ IntToStr(SelOM.RawMsgFlags) + ';'
+ SelOM.CCharSet + ';'
+ IntToStr(SelOM.TotalKSize) + ';'
+ SelOM.Subject + ';'
+ DateToStr(SelOM.CreateDate) + ';'
+ DateToStr(SelOM.ReplyByDate) + ';'
+ DateToStr(SelOM.AttachDate) + ';'
+ SelOM.AckId + ';'
+ IntToStr(SelOM.Size) + ';'
+ IntToStr(SelOM.AbsoluteRef) + ';'
+ IntToStr(SelOM.Flags01) + ';'
+ IntToStr(SelOM.Flags2) + ';'
+ IntToStr(SelOM.RecipId) + ';'
+ IntToStr(SelOM.RawAccessCaps) + ';');
WriteFile(mh, szbuf, length(strpas(szbuf)), wl, nil);
closehandle(mh);
gUALServer.DownloadItem(childOM, 'C:Program FilesEchoDownload'
+ DateToStr(SelOM.AttachDate)
+ ''
+ 'Doc' + IntToStr(i)
+ '.dat');
end;
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 김하늘
- •
- 2000.09.15 23:35
- 1 COMMENTS
- /
- 0 LIKES
-
김하늘•2000.09.15 23:52// 구조체 24 패킷을 2자리 줄이고 // 데이타부분의 두자리를 늘려서 처리가 됐습니다... // 자료실에 올...
-
- 김애경
- 2000.09.15 23:28
- 0 COMMENTS
- /
- 0 LIKES
-
- 델피초보
- •
- 2000.09.15 23:27
- 1 COMMENTS
- /
- 0 LIKES
-
투덜이•2000.09.16 20:09저 저는 고수도 아니구 ... 저두 이제 막 시작한 초보입니다. 그냥 혹시나 행여나 도움일 될까해서요. Ta...
-
- 꼴통
- •
- 2000.09.15 23:24
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.09.15 23:56안녕하세요. 델파이세상(http://www.freechal.com/delphiworld)의 최용일입니다. 뒤에 File open mode파...
-
- yunani
- •
- 2000.09.15 23:32
- 3 COMMENTS
- /
- 0 LIKES
-
김옥란•2000.09.16 00:11yunani wrote: > 제목으로 무슨말인지 감을 못잡으셨을겁니다. 제가 표현력이 좀 부족하다보니.. > > ...
-
yunani•2000.09.16 01:40김옥란 wrote: > yunani wrote: > > 제목으로 무슨말인지 감을 못잡으셨을겁니다. 제가 표현력이 좀 부족...
-
김옥란•2000.09.16 04:15yunani wrote: > 김옥란 wrote: > > yunani wrote: > > > 제목으로 무슨말인지 감을 못잡으셨을겁니다. ...
-
- heimdal
- 2000.09.15 22:57
- 0 COMMENTS
- /
- 0 LIKES
-
- 향기
- •
- 2000.09.15 22:28
- 2 COMMENTS
- /
- 0 LIKES
-
kylix•2000.09.16 00:08가능합니다.... 자세한것은 책을 찾아보시거나 검색을 해보세요... 넘 방대해서리... 향기 wrote: >...
-
향기•2000.09.16 02:50답변 감사 드립니다. 이곳의 답변들은 처음부터 dll 로 만든것을 기초로 하고 있는것 같아서요... 저...
-
- 궁금함
- •
- 2000.09.15 22:37
- 2 COMMENTS
- /
- 0 LIKES
-
타락천사...•2000.09.16 10:59안녕하세요.. 타락임다... 잠이 안오는군여..ㅠㅠ 마우스가 어떤 컴포넌트로 들어갈때 OnEnter 이벤...
-
궁금함•2000.09.16 17:57답변감사 드립니다. 제가 완전 초보라 그러는대 예제 하나만 해주세요 염치없지만 부탁 드립니다. 그...
-
- 초보맨
- •
- 2000.09.15 22:08
- 4 COMMENTS
- /
- 0 LIKES
-
김현•2000.09.16 01:04델파이 코리아 강좌 아니면 팁란에 있는 질문과 관련된 내용이 있을 것입니다. 그걸 보면 첫번째는 해결하...
-
초보맨•2000.09.16 03:11답편 감사 합니다. 그런대 델파이 코리아 가서 2시간 정도 줘졌는대 못찾았습니다. 컴퍼넌트 말고 webbro...
-
김현•2000.09.18 21:46http://www.intelligo.net/iedelphi/onnewwindow2.htm 에 가보세요.. 그리고 ..델코에서 제가 찾아봤는...
-
초울트라초보•2000.09.18 22:46김현님에 답변 감사드립니다. 즐거운 하루 보내시고 감사하단 말밖에 할말이 없내요 그럼 수고하세요 ...
-
- kylix
- 2000.09.15 21:42
- 0 COMMENTS
- /
- 0 LIKES
-
- 투덜이
- •
- 2000.09.15 21:15
- 1 COMMENTS
- /
- 0 LIKES
-
최광배•2000.09.15 22:31테이블 컴포넌트의 "OnPostError"이벤트에 메세지를 뿌리면 key에러중복을 방지할수 있습니다.
-
-
최석기•2000.09.15 21:37안녕하세요. 델파이세상(http://www.freechal.com/delphiworld)에 최석기입니다. 님이 원하시는 첫번째...
-
니케•2000.09.15 22:58답변 감사합니다~!! 근데 죄송한데요..초보라서..그 함수를 어떻게 쓰는건가요.. 코드편집창에서 선언해 ...
-
-
- 꼴통
- •
- 2000.09.15 20:41
- 1 COMMENTS
- /
- 0 LIKES
밑에 소스를 간단하게 설명 드리면 file시스템으로되어있는 데이타를 불러와서 하나의 file로 저장하는것입니다. 그런데 저장하는 진행상황을 표시하고 싶은데 file size를 어떻게 구해야할지 모르겠네여. 그리고 Progress Bar로 진행상황...-
kylix•2000.09.15 21:25검색해보시면 파일크기 구하는 여러 방법이 나와 있습니다... 꼴통 wrote: > 밑에 소스를 간단하게 설...
-
- 김태룡
- •
- 2000.09.15 20:16
- 1 COMMENTS
- /
- 0 LIKES
-
신호성•2000.09.15 21:24김태룡 wrote: > 제가 지금 TQuery를 이용해서 가져온 값을 퀵레포트로 출력하려고 합니다.. > 그런데......
-
- 손두기
- 2000.09.15 20:21
- 0 COMMENTS
- /
- 0 LIKES
-
- 스위밍
- •
- 2000.09.15 19:56
- 1 COMMENTS
- /
- 0 LIKES
-
신호성•2000.09.15 21:18스위밍 wrote: > ms-sql7.0에서 stored procedure를 매일 같은 시각에 돌리고 싶습니다. > ---- > 정해...
-
- 델초보
- 2000.09.15 19:49
- 0 COMMENTS
- /
- 0 LIKES
-
- 김종석
- •
- 2000.09.15 19:33
- 1 COMMENTS
- /
- 0 LIKES
-
kylix•2000.09.15 21:22인스톨쉴드 홈페이지에 메뉴얼도 있구 BDE포함하는 방법도 나와 있습니다... 김종석 wrote: > > 아무...
-
- 꼴통
- •
- 2000.09.15 19:30
- 5 COMMENTS
- /
- 0 LIKES
-
kylix•2000.09.15 21:20
-
꼴통•2000.09.15 23:11
-
최용일•2000.09.16 00:05
-
꼴통•2000.09.16 18:35
-
최용일•2000.09.17 00:06
-
- 푸하하
- 2000.09.15 19:24
- 0 COMMENTS
- /
- 0 LIKES
꼴통 wrote:
> 밑에 소스를 간단하게 설명 드리면 file시스템으로되어있는 데이타를 불러와서
> 하나의 file로 저장하는것입니다.
> 그런데 저장하는 진행상황을 표시하고 싶은데 file size를 어떻게 구해야할지
> 모르겠네여. 그리고 Progress Bar로 진행상황을 표시할려고 하는데 file이 5개 정도로 쪼개져 있어서 이것또한 난감하네여.
> 고수님들 보시고 한수가르쳐 주싶시요
>
> procedure TFmExplorer.btDnldClick(Sender: TObject);
> var
> childOM,
> SelOM: TOMItem;
> Res: Integer;
> mh : THANDLE;
> stbuf : string;
> szbuf : array [0..1024] of char;
> i,
> wl : longint;
> FH1 : Integer;
> iFileSize : Integer;
>
> begin
>
> if lvItemList.ItemFocused = NIL then Exit;
> SelOM := TOMItem( lvItemList.ItemFocused.Data );
> if SelOM = NIL then begin
> my_MsgBox( '선택된 항목에 오류가 있어서 PC로 저장할 수 없습니다.' );
> Exit;
> end;
> {$IFDEF HOLLY}
> mh := CreateFile('C:Program FilesEchoDownloadTEST.MH',
> GENERIC_WRITE,
> FILE_SHARE_READ,
> nil,
> CREATE_ALWAYS,
> FILE_ATTRIBUTE_NORMAL,
> 0);
>
>
> if mh = 0 then begin
> my_MsgBox( 'CreateFile(C:Program FilesEchoDownloadTEST.MH) Failed' );
> Exit;
> end;
> StrPcopy(szbuf, SelOM.FullSubject +';'
> + IntToStr(SelOM.ItemType) + ';'
> + SelOM.MsgId);
> WriteFile(mh, szbuf, length(strpas(szbuf)), wl, nil);
> closehandle(mh);
>
> strpcopy(szbuf, 'C:Program FilesEchoDownload'
> + DateToStrSelOM.AttachDate));
> CreateDirectory(szbuf, nil);
>
> if SelOM.Open <> resOK then begin
> my_MsgBox( 'SelOM.Open Failed' );
> Exit;
> end;
>
> wl := SelOM.List.Count - 1;
> for i := 0 to wl do begin
> childOM := SelOM.List.Items[i];
> mh := CreateFile( PCHAR('C:Program FilesEchoDownload'
> + DateToStr(SelOM.AttachDate) + 'TEST.MH'),
> GENERIC_WRITE,
> FILE_SHARE_READ,
> nil,
> CREATE_ALWAYS,
> FILE_ATTRIBUTE_NORMAL,
> 0);
>
> if mh = 0 then begin my_msgBox( 'CreateFile(C:Program
> FilesEchoDownloadTEST.MH) Failed' );
> Exit;
> end;
> StrPcopy(szbuf, inttostr(i) + ';'
> + SelOM.FullSubject +';'
> + IntToStr(SelOM.ItemType) + ';'
> + SelOM.MsgID + ';'
> + SelOM.Creator + ';'
> + SelOM.OrigFName + ';'
> + SelOM.MIMEType + ';'
> + IntToStr(SelOM.RawExpiryDate) + ';'
> + IntToStr(SelOM.DeferredInt) + ';'
> + IntToStr(SelOM.RawMsgFlags) + ';'
> + IntToStr(SelOM.BBAccessCount) + ';'
> + IntToStr(SelOM.ListOrder) + ';'
> + SelOM.ItemClass + ';'
> + SelOM.DirectRef + ';'
> + IntToStr(SelOM.RawMsgFlags) + ';'
> + SelOM.CCharSet + ';'
> + IntToStr(SelOM.TotalKSize) + ';'
> + SelOM.Subject + ';'
> + DateToStr(SelOM.CreateDate) + ';'
> + DateToStr(SelOM.ReplyByDate) + ';'
> + DateToStr(SelOM.AttachDate) + ';'
> + SelOM.AckId + ';'
> + IntToStr(SelOM.Size) + ';'
> + IntToStr(SelOM.AbsoluteRef) + ';'
> + IntToStr(SelOM.Flags01) + ';'
> + IntToStr(SelOM.Flags2) + ';'
> + IntToStr(SelOM.RecipId) + ';'
> + IntToStr(SelOM.RawAccessCaps) + ';');
>
> WriteFile(mh, szbuf, length(strpas(szbuf)), wl, nil);
> closehandle(mh);
> gUALServer.DownloadItem(childOM, 'C:Program FilesEchoDownload'
> + DateToStr(SelOM.AttachDate)
> + ''
> + 'Doc' + IntToStr(i)
> + '.dat');
>
>
> end;
>