Q&A
- indy로 파일 전송시 ProgressBar로 진행사항 표시
indy의 IdTCPServer, IdTCPClient로 파일 전송을 구현하려고 합니다.
서버쪽 :
procedure TForm1.tcpServerExecute(AThread: TIdPeerThread);
var
Cmd : String;
FStream : TFileStream;
begin
Cmd := AThread.Connection.ReadLn('',100);
if Cmd = 'SEND' then
begin
if Application.MessageBox('파일전송을 허락하겠습니까','file',MB_ICONQUESTION or MB_YESNO) = IDYES Then
begin
AThread.Connection.WriteLn('OK');
if FileExists('C:a.asf') then
DeleteFile('C:a.asf');
Listbox1.Items.Add('수신중');
FStream := TFileStream.Create('파일명',fmCreate);
AThread.Connection.ReadStream(FStream,-1,True);
Listbox1.Items.Add('수신완료');
FStream.Free;
end
else AThread.Connection.WriteLn('NO');
AThread.Connection.Disconnect;
end;
end;
클라이언트 :
procedure TForm1.Button1Click(Sender: TObject);
begin
IdTCPClient1.Writeln('SEND')
end;
//타이머에서 서버쪽을 응답에 따라 전송합니다.
procedure TForm1.Timer1Timer(Sender: TObject);
var
FStream : TFileStream;
Cmd : String;
begin
IF Not IdTCPClient1.Connected then
Exit;
Cmd := IdTCPClient1.ReadLn('',100);
if Cmd <> '' then
begin
if Cmd = 'OK' then
begin
FStream := TFileStream.Create('파일명',fmOpenRead);
IdTCPClient1.WriteStream(FStream);
FStream.Free;
IdTCPClient1.Disconnect;
end
else if Trim(Cmd) = 'NO' then
begin
IdTCPClient1.Disconnect;
end;
end;
end;
위처럼 코딩하여 실행하면 전송은 잘 됩니다. 여기에다 진행현황을 프로그레스
바로 표현하려고 하는데 방법을 잘 모르겠읍니다.
소스를 보면 스트림으로 파일을 송수신 할때 자동으로 잘러서 보내던데
서버, 클라이언트 양쪽에서 프로그래스바로 지행사항을 표현할수 없을까요?
고수님들 제~발 답변좀 남겨 주세요!!!
서버쪽 :
procedure TForm1.tcpServerExecute(AThread: TIdPeerThread);
var
Cmd : String;
FStream : TFileStream;
begin
Cmd := AThread.Connection.ReadLn('',100);
if Cmd = 'SEND' then
begin
if Application.MessageBox('파일전송을 허락하겠습니까','file',MB_ICONQUESTION or MB_YESNO) = IDYES Then
begin
AThread.Connection.WriteLn('OK');
if FileExists('C:a.asf') then
DeleteFile('C:a.asf');
Listbox1.Items.Add('수신중');
FStream := TFileStream.Create('파일명',fmCreate);
AThread.Connection.ReadStream(FStream,-1,True);
Listbox1.Items.Add('수신완료');
FStream.Free;
end
else AThread.Connection.WriteLn('NO');
AThread.Connection.Disconnect;
end;
end;
클라이언트 :
procedure TForm1.Button1Click(Sender: TObject);
begin
IdTCPClient1.Writeln('SEND')
end;
//타이머에서 서버쪽을 응답에 따라 전송합니다.
procedure TForm1.Timer1Timer(Sender: TObject);
var
FStream : TFileStream;
Cmd : String;
begin
IF Not IdTCPClient1.Connected then
Exit;
Cmd := IdTCPClient1.ReadLn('',100);
if Cmd <> '' then
begin
if Cmd = 'OK' then
begin
FStream := TFileStream.Create('파일명',fmOpenRead);
IdTCPClient1.WriteStream(FStream);
FStream.Free;
IdTCPClient1.Disconnect;
end
else if Trim(Cmd) = 'NO' then
begin
IdTCPClient1.Disconnect;
end;
end;
end;
위처럼 코딩하여 실행하면 전송은 잘 됩니다. 여기에다 진행현황을 프로그레스
바로 표현하려고 하는데 방법을 잘 모르겠읍니다.
소스를 보면 스트림으로 파일을 송수신 할때 자동으로 잘러서 보내던데
서버, 클라이언트 양쪽에서 프로그래스바로 지행사항을 표현할수 없을까요?
고수님들 제~발 답변좀 남겨 주세요!!!
4
COMMENTS
-
-
답변 감사합니다.
그런데 WriteStream소스를 보면 자동으로 스트림을 잘러서 보내게 되 있더라구요
굳이 자르는 코딩을 하지 않고 진행율을 표현하는 방법은 없을 까요?
서재명 wrote:
> 작성하신 코드는 파일을 나누지 않고 스트림을 직접 연결하여 전송하는 방법이군요
> 이미 알고계시겠지만 이런 방법으로 파일을 전송하면 나누어 보내는 것 보다 더 느립니다. 왜냐구요? 그건 잘 모르겠구요 해보니까 더 느리더라구요
>
> 파일을 나누어 보내려면 얼마의 크기로 나눌것인지 정한 후에 받는 쪽에 먼저 파일크기를 알려주면(WriteBuffer를 이용하여 파일이름,파일크기등을 보내는 것이 좋겠습니다.) 받는 쪽에서는 파일크기와 미리정한 블럭크기를 가지고 몇개의 데이터블럭이 전송되어 올것인지 계산할 수 있겠죠?(적당히 5K미만이 좋겠습니다.) 그다음 파일을 받을 준비가 되었다는 코드를 보내줍니다.
>
> 파일을 받을 준비가 되었다는 코드를 받고 나면 이제 파일을 보내면 됩니다. 파일스트림을 직접 네트워크로 전송하지 마시고 아까정한 블럭크기로 나누어서 읽은 후- FStream.Read(버퍼,읽을크기)
> 읽은 버퍼를 idTCPClient1.WriteBuffer함수로 보냅니다.
> 버퍼를 보낸 후에는 받는 쪽에서 버퍼를 '받았다는 코드'를 보내주고 보내는 쪽에서 '받았다는 코드'를 받으면 모든 데이터 블럭이 보내질 때 까지 위의 명령을 반복하여 다음 데이터블럭을 보냅니다.
>
> 받는쪽에서는 데이터블럭을 받을 때마다 카운트를 증가하고 앞에서 계산한 총 블럭수를 가지고 프로그래스바를 그릴 수 있겠지요 (예를들어 총 1000개의 블럭중 300번째 블럭을 받았다면 30%를 가르키는 프로그래스바를 그릴 수 있지요) 마찬가지로 보내는 쪽도 블럭을 보낼 때 마다 프로그래스바를 그릴 수 있구요
>
> 받드시 받았다는 코드를 받은 후에 다음 블럭을 보내도록 하세요 TCP/IP는 패킷방식의 전송을 하니까 하나 데이터블럭을 구성하는 TCP/IP 패킷은 순서가 뒤바뀌지 않겠지만 각 블럭은 TCP/IP에서 말하는 패킷이 아니라 우리가 임의로 잘라서 보내는 거니까 도착하는 순서를 보장할 수 없죠 그렇지 않고 한꺼번에 보내면 첫번째 블럭과 두번째 블럭을 순차적으로 보내더라도 상황에 따라 두번째 블럭이 먼저 도착할 수 있지 않겠어요?
>
>
>
> 철 wrote:
> > indy의 IdTCPServer, IdTCPClient로 파일 전송을 구현하려고 합니다.
> >
> > 서버쪽 :
> > procedure TForm1.tcpServerExecute(AThread: TIdPeerThread);
> > var
> > Cmd : String;
> > FStream : TFileStream;
> > begin
> > Cmd := AThread.Connection.ReadLn('',100);
> > if Cmd = 'SEND' then
> > begin
> > if Application.MessageBox('파일전송을 허락하겠습니까','file',MB_ICONQUESTION or MB_YESNO) = IDYES Then
> > begin
> > AThread.Connection.WriteLn('OK');
> > if FileExists('C:a.asf') then
> > DeleteFile('C:a.asf');
> > Listbox1.Items.Add('수신중');
> > FStream := TFileStream.Create('파일명',fmCreate);
> > AThread.Connection.ReadStream(FStream,-1,True);
> > Listbox1.Items.Add('수신완료');
> > FStream.Free;
> > end
> > else AThread.Connection.WriteLn('NO');
> > AThread.Connection.Disconnect;
> > end;
> > end;
> >
> > 클라이언트 :
> > procedure TForm1.Button1Click(Sender: TObject);
> > begin
> > IdTCPClient1.Writeln('SEND')
> > end;
> >
> > //타이머에서 서버쪽을 응답에 따라 전송합니다.
> > procedure TForm1.Timer1Timer(Sender: TObject);
> > var
> > FStream : TFileStream;
> > Cmd : String;
> > begin
> > IF Not IdTCPClient1.Connected then
> > Exit;
> > Cmd := IdTCPClient1.ReadLn('',100);
> > if Cmd <> '' then
> > begin
> > if Cmd = 'OK' then
> > begin
> > FStream := TFileStream.Create('파일명',fmOpenRead);
> > IdTCPClient1.WriteStream(FStream);
> > FStream.Free;
> > IdTCPClient1.Disconnect;
> > end
> > else if Trim(Cmd) = 'NO' then
> > begin
> > IdTCPClient1.Disconnect;
> > end;
> > end;
> > end;
> >
> > 위처럼 코딩하여 실행하면 전송은 잘 됩니다. 여기에다 진행현황을 프로그레스
> > 바로 표현하려고 하는데 방법을 잘 모르겠읍니다.
> > 소스를 보면 스트림으로 파일을 송수신 할때 자동으로 잘러서 보내던데
> > 서버, 클라이언트 양쪽에서 프로그래스바로 지행사항을 표현할수 없을까요?
> > 고수님들 제~발 답변좀 남겨 주세요!!!
> >
-
OnWork이벤트를 이용해 보면 어떨까요?
progressbar1.Position := round(aWorkCount / fSize * 100);
* fSize : 미리 계산된 파일크기
이렇게 하면 파일을 보낼 때 프로그래스바를 표현할 수 있을 것 같은데요..
철 wrote:
> 답변 감사합니다.
> 그런데 WriteStream소스를 보면 자동으로 스트림을 잘러서 보내게 되 있더라구요
> 굳이 자르는 코딩을 하지 않고 진행율을 표현하는 방법은 없을 까요?
>
> 서재명 wrote:
> > 작성하신 코드는 파일을 나누지 않고 스트림을 직접 연결하여 전송하는 방법이군요
> > 이미 알고계시겠지만 이런 방법으로 파일을 전송하면 나누어 보내는 것 보다 더 느립니다. 왜냐구요? 그건 잘 모르겠구요 해보니까 더 느리더라구요
> >
> > 파일을 나누어 보내려면 얼마의 크기로 나눌것인지 정한 후에 받는 쪽에 먼저 파일크기를 알려주면(WriteBuffer를 이용하여 파일이름,파일크기등을 보내는 것이 좋겠습니다.) 받는 쪽에서는 파일크기와 미리정한 블럭크기를 가지고 몇개의 데이터블럭이 전송되어 올것인지 계산할 수 있겠죠?(적당히 5K미만이 좋겠습니다.) 그다음 파일을 받을 준비가 되었다는 코드를 보내줍니다.
> >
> > 파일을 받을 준비가 되었다는 코드를 받고 나면 이제 파일을 보내면 됩니다. 파일스트림을 직접 네트워크로 전송하지 마시고 아까정한 블럭크기로 나누어서 읽은 후- FStream.Read(버퍼,읽을크기)
> > 읽은 버퍼를 idTCPClient1.WriteBuffer함수로 보냅니다.
> > 버퍼를 보낸 후에는 받는 쪽에서 버퍼를 '받았다는 코드'를 보내주고 보내는 쪽에서 '받았다는 코드'를 받으면 모든 데이터 블럭이 보내질 때 까지 위의 명령을 반복하여 다음 데이터블럭을 보냅니다.
> >
> > 받는쪽에서는 데이터블럭을 받을 때마다 카운트를 증가하고 앞에서 계산한 총 블럭수를 가지고 프로그래스바를 그릴 수 있겠지요 (예를들어 총 1000개의 블럭중 300번째 블럭을 받았다면 30%를 가르키는 프로그래스바를 그릴 수 있지요) 마찬가지로 보내는 쪽도 블럭을 보낼 때 마다 프로그래스바를 그릴 수 있구요
> >
> > 받드시 받았다는 코드를 받은 후에 다음 블럭을 보내도록 하세요 TCP/IP는 패킷방식의 전송을 하니까 하나 데이터블럭을 구성하는 TCP/IP 패킷은 순서가 뒤바뀌지 않겠지만 각 블럭은 TCP/IP에서 말하는 패킷이 아니라 우리가 임의로 잘라서 보내는 거니까 도착하는 순서를 보장할 수 없죠 그렇지 않고 한꺼번에 보내면 첫번째 블럭과 두번째 블럭을 순차적으로 보내더라도 상황에 따라 두번째 블럭이 먼저 도착할 수 있지 않겠어요?
> >
> >
> >
> > 철 wrote:
> > > indy의 IdTCPServer, IdTCPClient로 파일 전송을 구현하려고 합니다.
> > >
> > > 서버쪽 :
> > > procedure TForm1.tcpServerExecute(AThread: TIdPeerThread);
> > > var
> > > Cmd : String;
> > > FStream : TFileStream;
> > > begin
> > > Cmd := AThread.Connection.ReadLn('',100);
> > > if Cmd = 'SEND' then
> > > begin
> > > if Application.MessageBox('파일전송을 허락하겠습니까','file',MB_ICONQUESTION or MB_YESNO) = IDYES Then
> > > begin
> > > AThread.Connection.WriteLn('OK');
> > > if FileExists('C:a.asf') then
> > > DeleteFile('C:a.asf');
> > > Listbox1.Items.Add('수신중');
> > > FStream := TFileStream.Create('파일명',fmCreate);
> > > AThread.Connection.ReadStream(FStream,-1,True);
> > > Listbox1.Items.Add('수신완료');
> > > FStream.Free;
> > > end
> > > else AThread.Connection.WriteLn('NO');
> > > AThread.Connection.Disconnect;
> > > end;
> > > end;
> > >
> > > 클라이언트 :
> > > procedure TForm1.Button1Click(Sender: TObject);
> > > begin
> > > IdTCPClient1.Writeln('SEND')
> > > end;
> > >
> > > //타이머에서 서버쪽을 응답에 따라 전송합니다.
> > > procedure TForm1.Timer1Timer(Sender: TObject);
> > > var
> > > FStream : TFileStream;
> > > Cmd : String;
> > > begin
> > > IF Not IdTCPClient1.Connected then
> > > Exit;
> > > Cmd := IdTCPClient1.ReadLn('',100);
> > > if Cmd <> '' then
> > > begin
> > > if Cmd = 'OK' then
> > > begin
> > > FStream := TFileStream.Create('파일명',fmOpenRead);
> > > IdTCPClient1.WriteStream(FStream);
> > > FStream.Free;
> > > IdTCPClient1.Disconnect;
> > > end
> > > else if Trim(Cmd) = 'NO' then
> > > begin
> > > IdTCPClient1.Disconnect;
> > > end;
> > > end;
> > > end;
> > >
> > > 위처럼 코딩하여 실행하면 전송은 잘 됩니다. 여기에다 진행현황을 프로그레스
> > > 바로 표현하려고 하는데 방법을 잘 모르겠읍니다.
> > > 소스를 보면 스트림으로 파일을 송수신 할때 자동으로 잘러서 보내던데
> > > 서버, 클라이언트 양쪽에서 프로그래스바로 지행사항을 표현할수 없을까요?
> > > 고수님들 제~발 답변좀 남겨 주세요!!!
> > >
-
OnWork이벤트
를 어떻게 정의 하나요
idtcpServer1Execute(AThread: TIdPeerThread)에서 받는
AThread.Connection에서 발생하는 OnWork이벤트를 어떻게 선언하는지 알고 싶습니다.
idtcpClient1 에는 Onwork이벤트가 있는데
idtcpServer에는 이런 이벤트가 등록되지 않아서 어떻게 이 이벤트를 등록하구 쓸수가 없네요
override가 뭔가 이런걸 해야하는 건가요 알려주세요
서재명 wrote:
> OnWork이벤트를 이용해 보면 어떨까요?
>
> progressbar1.Position := round(aWorkCount / fSize * 100);
> * fSize : 미리 계산된 파일크기
>
> 이렇게 하면 파일을 보낼 때 프로그래스바를 표현할 수 있을 것 같은데요..
>
>
> 철 wrote:
> > 답변 감사합니다.
> > 그런데 WriteStream소스를 보면 자동으로 스트림을 잘러서 보내게 되 있더라구요
> > 굳이 자르는 코딩을 하지 않고 진행율을 표현하는 방법은 없을 까요?
> >
> > 서재명 wrote:
> > > 작성하신 코드는 파일을 나누지 않고 스트림을 직접 연결하여 전송하는 방법이군요
> > > 이미 알고계시겠지만 이런 방법으로 파일을 전송하면 나누어 보내는 것 보다 더 느립니다. 왜냐구요? 그건 잘 모르겠구요 해보니까 더 느리더라구요
> > >
> > > 파일을 나누어 보내려면 얼마의 크기로 나눌것인지 정한 후에 받는 쪽에 먼저 파일크기를 알려주면(WriteBuffer를 이용하여 파일이름,파일크기등을 보내는 것이 좋겠습니다.) 받는 쪽에서는 파일크기와 미리정한 블럭크기를 가지고 몇개의 데이터블럭이 전송되어 올것인지 계산할 수 있겠죠?(적당히 5K미만이 좋겠습니다.) 그다음 파일을 받을 준비가 되었다는 코드를 보내줍니다.
> > >
> > > 파일을 받을 준비가 되었다는 코드를 받고 나면 이제 파일을 보내면 됩니다. 파일스트림을 직접 네트워크로 전송하지 마시고 아까정한 블럭크기로 나누어서 읽은 후- FStream.Read(버퍼,읽을크기)
> > > 읽은 버퍼를 idTCPClient1.WriteBuffer함수로 보냅니다.
> > > 버퍼를 보낸 후에는 받는 쪽에서 버퍼를 '받았다는 코드'를 보내주고 보내는 쪽에서 '받았다는 코드'를 받으면 모든 데이터 블럭이 보내질 때 까지 위의 명령을 반복하여 다음 데이터블럭을 보냅니다.
> > >
> > > 받는쪽에서는 데이터블럭을 받을 때마다 카운트를 증가하고 앞에서 계산한 총 블럭수를 가지고 프로그래스바를 그릴 수 있겠지요 (예를들어 총 1000개의 블럭중 300번째 블럭을 받았다면 30%를 가르키는 프로그래스바를 그릴 수 있지요) 마찬가지로 보내는 쪽도 블럭을 보낼 때 마다 프로그래스바를 그릴 수 있구요
> > >
> > > 받드시 받았다는 코드를 받은 후에 다음 블럭을 보내도록 하세요 TCP/IP는 패킷방식의 전송을 하니까 하나 데이터블럭을 구성하는 TCP/IP 패킷은 순서가 뒤바뀌지 않겠지만 각 블럭은 TCP/IP에서 말하는 패킷이 아니라 우리가 임의로 잘라서 보내는 거니까 도착하는 순서를 보장할 수 없죠 그렇지 않고 한꺼번에 보내면 첫번째 블럭과 두번째 블럭을 순차적으로 보내더라도 상황에 따라 두번째 블럭이 먼저 도착할 수 있지 않겠어요?
> > >
> > >
> > >
> > > 철 wrote:
> > > > indy의 IdTCPServer, IdTCPClient로 파일 전송을 구현하려고 합니다.
> > > >
> > > > 서버쪽 :
> > > > procedure TForm1.tcpServerExecute(AThread: TIdPeerThread);
> > > > var
> > > > Cmd : String;
> > > > FStream : TFileStream;
> > > > begin
> > > > Cmd := AThread.Connection.ReadLn('',100);
> > > > if Cmd = 'SEND' then
> > > > begin
> > > > if Application.MessageBox('파일전송을 허락하겠습니까','file',MB_ICONQUESTION or MB_YESNO) = IDYES Then
> > > > begin
> > > > AThread.Connection.WriteLn('OK');
> > > > if FileExists('C:a.asf') then
> > > > DeleteFile('C:a.asf');
> > > > Listbox1.Items.Add('수신중');
> > > > FStream := TFileStream.Create('파일명',fmCreate);
> > > > AThread.Connection.ReadStream(FStream,-1,True);
> > > > Listbox1.Items.Add('수신완료');
> > > > FStream.Free;
> > > > end
> > > > else AThread.Connection.WriteLn('NO');
> > > > AThread.Connection.Disconnect;
> > > > end;
> > > > end;
> > > >
> > > > 클라이언트 :
> > > > procedure TForm1.Button1Click(Sender: TObject);
> > > > begin
> > > > IdTCPClient1.Writeln('SEND')
> > > > end;
> > > >
> > > > //타이머에서 서버쪽을 응답에 따라 전송합니다.
> > > > procedure TForm1.Timer1Timer(Sender: TObject);
> > > > var
> > > > FStream : TFileStream;
> > > > Cmd : String;
> > > > begin
> > > > IF Not IdTCPClient1.Connected then
> > > > Exit;
> > > > Cmd := IdTCPClient1.ReadLn('',100);
> > > > if Cmd <> '' then
> > > > begin
> > > > if Cmd = 'OK' then
> > > > begin
> > > > FStream := TFileStream.Create('파일명',fmOpenRead);
> > > > IdTCPClient1.WriteStream(FStream);
> > > > FStream.Free;
> > > > IdTCPClient1.Disconnect;
> > > > end
> > > > else if Trim(Cmd) = 'NO' then
> > > > begin
> > > > IdTCPClient1.Disconnect;
> > > > end;
> > > > end;
> > > > end;
> > > >
> > > > 위처럼 코딩하여 실행하면 전송은 잘 됩니다. 여기에다 진행현황을 프로그레스
> > > > 바로 표현하려고 하는데 방법을 잘 모르겠읍니다.
> > > > 소스를 보면 스트림으로 파일을 송수신 할때 자동으로 잘러서 보내던데
> > > > 서버, 클라이언트 양쪽에서 프로그래스바로 지행사항을 표현할수 없을까요?
> > > > 고수님들 제~발 답변좀 남겨 주세요!!!
> > > >
(NOTICE) You must be logged in to comment on this post.
-
- 블랙봉
- 2001.06.14 03:42
- 0 COMMENTS
- /
- 0 LIKES
-
- 백운검
- •
- 2001.06.14 03:03
- 1 COMMENTS
- /
- 0 LIKES
-
Lee•2001.06.14 03:12제가 썼던 무식한 방법인데 말은 잘 듣더군요... 참고로 Query및 기타는 알아서 버리세요... var ...
-
- 최순희
- 2001.06.14 02:48
- 0 COMMENTS
- /
- 0 LIKES
-
- XXX
- 2001.06.14 02:24
- 0 COMMENTS
- /
- 0 LIKES
-
- 철
- •
- 2001.06.14 02:21
- 4 COMMENTS
- /
- 0 LIKES
indy의 IdTCPServer, IdTCPClient로 파일 전송을 구현하려고 합니다. 서버쪽 : procedure TForm1.tcpServerExecute(AThread: TIdPeerThread); var Cmd : String; FStream : TFileStream; begin Cmd := AThread.Connection.ReadLn('',100);...-
서재명•2001.06.14 08:19작성하신 코드는 파일을 나누지 않고 스트림을 직접 연결하여 전송하는 방법이군요 이미 알고계시겠지만 ...
-
철•2001.06.14 21:51답변 감사합니다. 그런데 WriteStream소스를 보면 자동으로 스트림을 잘러서 보내게 되 있더라구요 굳이 ...
-
서재명•2001.06.15 09:26OnWork이벤트를 이용해 보면 어떨까요? progressbar1.Position := round(aWorkCount / fSize * 100); ...
-
궁금이•2001.11.12 02:26OnWork이벤트 를 어떻게 정의 하나요 idtcpServer1Execute(AThread: TIdPeerThread)에서 받는 AThread....
-
- 초보
- 2001.06.14 02:20
- 0 COMMENTS
- /
- 0 LIKES
-
- 궁금이
- •
- 2001.06.14 01:19
- 2 COMMENTS
- /
- 0 LIKES
-
Lee•2001.06.14 03:08var CC,RR : Integer; For RR := 0 to StringGRid1.RowCount - 1 do For CC := 0 to Strin...
-
궁금이•2001.06.14 04:26전 파라독스 테이블에 TQuery를 사용했습니다. Lee님이 쓰신 것처럼 코딩한다면 'RR'이란 변수는 루프안...
-
- 딩동댕
- •
- 2001.06.14 01:06
- 1 COMMENTS
- /
- 0 LIKES
-
서재명•2001.06.14 08:27미디파일은 가지고 있는 사운드카드가 갖고 있는 악기를 가지고 연주하도록 하는 악보파일 같은 것입니다. ...
-
- 델초짜!
- •
- 2001.06.14 01:04
- 2 COMMENTS
- /
- 0 LIKES
-
사발우성•2001.06.14 02:03SELECT distinct pummung, (testa.numsum - testb.numsum)as 합 FROM test, (SELECT SUM(number...
-
델초짜!•2001.06.14 04:55이제 가서 함 돌려봐야줘.. ^^ 헌데.. 죠인도 아니구.. 아래 답변 주신것 처럼 테이블 명을 콤마로 연속 ...
-
- 김재락
- 2001.06.13 22:43
- 0 COMMENTS
- /
- 0 LIKES
-
- BULSAN
- 2001.06.13 22:41
- 0 COMMENTS
- /
- 0 LIKES
-
- sim
- 2001.06.13 22:16
- 0 COMMENTS
- /
- 0 LIKES
-
- 백승환
- •
- 2001.06.13 21:20
- 1 COMMENTS
- /
- 0 LIKES
-
parkisu•2001.06.16 06:13백승환 wrote: > Data라는 멤버 변수에 TDateTime형을 연결시켜 놓고 싶은데요... > > 만약에.... > ...
-
- zzogem
- 2001.06.13 21:11
- 0 COMMENTS
- /
- 0 LIKES
-
- chunli
- •
- 2001.06.13 20:43
- 3 COMMENTS
- /
- 0 LIKES
-
SPITZMAN•2001.06.26 20:44지금 사용하시는 방법보다는 스트링그리드의 COMMATEXT속성을 이용하여 임시파일에 먼저 저장한다음 엑셀...
-
SPITZMAN•2001.06.26 20:44지금 사용하시는 방법보다는 스트링그리드의 COMMATEXT속성을 이용하여 임시파일에 먼저 저장한다음 엑셀...
-
명탁•2001.06.14 10:43chunli wrote: > StringGrid에 만건정도의 데이타가 있는데 > 엑셀로 받으려고 하니 앞의 방법으로는 시...
-
- 베나^^
- •
- 2001.06.13 20:38
- 6 COMMENTS
- /
- 0 LIKES
-
짱아•2001.06.13 23:50
-
베나^^•2001.06.14 03:34
-
명탁•2001.06.14 10:52
-
베나^^•2001.06.14 20:27
-
명탁•2001.06.15 13:30
-
베나^^•2001.06.16 13:35
-
- 써니
- •
- 2001.06.13 20:21
- 1 COMMENTS
- /
- 0 LIKES
-
하기•2001.06.13 23:31SHellExecute를 사용하세요... SHellExecute(Handle,'open','MSPAINT.EXE', '이곳에 특정폴더의 그림',...
-
- 오성환
- 2001.06.13 20:07
- 0 COMMENTS
- /
- 0 LIKES
-
- 긴급[델초보]
- 2001.06.13 19:25
- 0 COMMENTS
- /
- 0 LIKES
-
- 임병우
- •
- 2001.06.13 18:53
- 1 COMMENTS
- /
- 0 LIKES
-
지나가다...•2001.07.07 04:34임병우 wrote: > 안녕하세요. 오늘 아침은 선선하네요. > 환경 : oracle8i/delphi4.0 > 제목 : blob 사...
이미 알고계시겠지만 이런 방법으로 파일을 전송하면 나누어 보내는 것 보다 더 느립니다. 왜냐구요? 그건 잘 모르겠구요 해보니까 더 느리더라구요
파일을 나누어 보내려면 얼마의 크기로 나눌것인지 정한 후에 받는 쪽에 먼저 파일크기를 알려주면(WriteBuffer를 이용하여 파일이름,파일크기등을 보내는 것이 좋겠습니다.) 받는 쪽에서는 파일크기와 미리정한 블럭크기를 가지고 몇개의 데이터블럭이 전송되어 올것인지 계산할 수 있겠죠?(적당히 5K미만이 좋겠습니다.) 그다음 파일을 받을 준비가 되었다는 코드를 보내줍니다.
파일을 받을 준비가 되었다는 코드를 받고 나면 이제 파일을 보내면 됩니다. 파일스트림을 직접 네트워크로 전송하지 마시고 아까정한 블럭크기로 나누어서 읽은 후- FStream.Read(버퍼,읽을크기)
읽은 버퍼를 idTCPClient1.WriteBuffer함수로 보냅니다.
버퍼를 보낸 후에는 받는 쪽에서 버퍼를 '받았다는 코드'를 보내주고 보내는 쪽에서 '받았다는 코드'를 받으면 모든 데이터 블럭이 보내질 때 까지 위의 명령을 반복하여 다음 데이터블럭을 보냅니다.
받는쪽에서는 데이터블럭을 받을 때마다 카운트를 증가하고 앞에서 계산한 총 블럭수를 가지고 프로그래스바를 그릴 수 있겠지요 (예를들어 총 1000개의 블럭중 300번째 블럭을 받았다면 30%를 가르키는 프로그래스바를 그릴 수 있지요) 마찬가지로 보내는 쪽도 블럭을 보낼 때 마다 프로그래스바를 그릴 수 있구요
받드시 받았다는 코드를 받은 후에 다음 블럭을 보내도록 하세요 TCP/IP는 패킷방식의 전송을 하니까 하나 데이터블럭을 구성하는 TCP/IP 패킷은 순서가 뒤바뀌지 않겠지만 각 블럭은 TCP/IP에서 말하는 패킷이 아니라 우리가 임의로 잘라서 보내는 거니까 도착하는 순서를 보장할 수 없죠 그렇지 않고 한꺼번에 보내면 첫번째 블럭과 두번째 블럭을 순차적으로 보내더라도 상황에 따라 두번째 블럭이 먼저 도착할 수 있지 않겠어요?
철 wrote:
> indy의 IdTCPServer, IdTCPClient로 파일 전송을 구현하려고 합니다.
>
> 서버쪽 :
> procedure TForm1.tcpServerExecute(AThread: TIdPeerThread);
> var
> Cmd : String;
> FStream : TFileStream;
> begin
> Cmd := AThread.Connection.ReadLn('',100);
> if Cmd = 'SEND' then
> begin
> if Application.MessageBox('파일전송을 허락하겠습니까','file',MB_ICONQUESTION or MB_YESNO) = IDYES Then
> begin
> AThread.Connection.WriteLn('OK');
> if FileExists('C:a.asf') then
> DeleteFile('C:a.asf');
> Listbox1.Items.Add('수신중');
> FStream := TFileStream.Create('파일명',fmCreate);
> AThread.Connection.ReadStream(FStream,-1,True);
> Listbox1.Items.Add('수신완료');
> FStream.Free;
> end
> else AThread.Connection.WriteLn('NO');
> AThread.Connection.Disconnect;
> end;
> end;
>
> 클라이언트 :
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> IdTCPClient1.Writeln('SEND')
> end;
>
> //타이머에서 서버쪽을 응답에 따라 전송합니다.
> procedure TForm1.Timer1Timer(Sender: TObject);
> var
> FStream : TFileStream;
> Cmd : String;
> begin
> IF Not IdTCPClient1.Connected then
> Exit;
> Cmd := IdTCPClient1.ReadLn('',100);
> if Cmd <> '' then
> begin
> if Cmd = 'OK' then
> begin
> FStream := TFileStream.Create('파일명',fmOpenRead);
> IdTCPClient1.WriteStream(FStream);
> FStream.Free;
> IdTCPClient1.Disconnect;
> end
> else if Trim(Cmd) = 'NO' then
> begin
> IdTCPClient1.Disconnect;
> end;
> end;
> end;
>
> 위처럼 코딩하여 실행하면 전송은 잘 됩니다. 여기에다 진행현황을 프로그레스
> 바로 표현하려고 하는데 방법을 잘 모르겠읍니다.
> 소스를 보면 스트림으로 파일을 송수신 할때 자동으로 잘러서 보내던데
> 서버, 클라이언트 양쪽에서 프로그래스바로 지행사항을 표현할수 없을까요?
> 고수님들 제~발 답변좀 남겨 주세요!!!
>