Q&A
- 이 소스좀 보시고 잘못된 곳 좀 지적해 주세요...
Indy의 "IdTCPClient"와 "IdTCPServer"로 소용량 파일전송을 만들려고 합니다.
아래 소스는 "IdTCPClient"에서 파일을 전송하고자 하는데 자꾸 죽네요...
고수님들의 조언을 부탁드립니다.
// IdTCPServer
procedure TForm1.IdTCPServerExecute(AThread: TIdPeerThread);
var
S : String;
Stream : TFileStream;
begin
Memo1.Lines.Add('IdTCPServerExecute : ' + AThread.Connection.Binding.PeerIP);
S := AThread.Connection.ReadLn;
if S = 'Ready' then
begin
Stream := TFileStream.Create(ExtractFilePath(Application.ExeName) + AThread.Connection.Binding.PeerIP + '.bmp',fmCreate);
try
While AThread.Connection.Connected do
begin
AThread.Connection.ReadStream(Stream, -1, True);
FreeAndNil(Stream);
AThread.Connection.Disconnect;
end;
finally
Stream.Free;
end;
end;
end;
// IdTCPClient
procedure TForm1.Button2Click(Sender: TObject);
begin
if Not IdTCPClient.Connected then
begin
if FileExists(ExtractFilePath(Application.ExeName) + '1.bmp') then
begin
IdTCPClient.Connect;
if IdTCPClient.Connected then
begin
IdTCPClient.WriteLn('Ready');
SendStream := TFileStream.Create(ExtractFilePath(Application.ExeName) + '1.bmp',fmOpenRead);
try
IdTCPClient.OpenWriteBuffer;
IdTCPClient.WriteStream(SendStream);
// 여기에서 ShowMessage(''); 로 잠시 멈추고 하면 전송되는데 sleep 등으로 임의로 멈춘 후에 하면 안되네요...
IdTCPClient.CloseWriteBuffer;
finally
SendStream.Free;
end;
IdTCPClient.Disconnect;
end;
end;
end;
end;
아래 소스는 "IdTCPClient"에서 파일을 전송하고자 하는데 자꾸 죽네요...
고수님들의 조언을 부탁드립니다.
// IdTCPServer
procedure TForm1.IdTCPServerExecute(AThread: TIdPeerThread);
var
S : String;
Stream : TFileStream;
begin
Memo1.Lines.Add('IdTCPServerExecute : ' + AThread.Connection.Binding.PeerIP);
S := AThread.Connection.ReadLn;
if S = 'Ready' then
begin
Stream := TFileStream.Create(ExtractFilePath(Application.ExeName) + AThread.Connection.Binding.PeerIP + '.bmp',fmCreate);
try
While AThread.Connection.Connected do
begin
AThread.Connection.ReadStream(Stream, -1, True);
FreeAndNil(Stream);
AThread.Connection.Disconnect;
end;
finally
Stream.Free;
end;
end;
end;
// IdTCPClient
procedure TForm1.Button2Click(Sender: TObject);
begin
if Not IdTCPClient.Connected then
begin
if FileExists(ExtractFilePath(Application.ExeName) + '1.bmp') then
begin
IdTCPClient.Connect;
if IdTCPClient.Connected then
begin
IdTCPClient.WriteLn('Ready');
SendStream := TFileStream.Create(ExtractFilePath(Application.ExeName) + '1.bmp',fmOpenRead);
try
IdTCPClient.OpenWriteBuffer;
IdTCPClient.WriteStream(SendStream);
// 여기에서 ShowMessage(''); 로 잠시 멈추고 하면 전송되는데 sleep 등으로 임의로 멈춘 후에 하면 안되네요...
IdTCPClient.CloseWriteBuffer;
finally
SendStream.Free;
end;
IdTCPClient.Disconnect;
end;
end;
end;
end;
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 훈
- •
- 2001.12.14 01:29
- 3 COMMENTS
- /
- 0 LIKES
-
버섯•2001.12.14 02:02훈 wrote: > 디자인 타임에 Object를 생성하면 , > Edit1, Edit2...이런 식으로 Name 속성이 설정됩니다.... -
훈•2001.12.15 02:28버섯 wrote: > 훈 wrote: > > 디자인 타임에 Object를 생성하면 , > > Edit1, Edit2...이런 식으...
-
이경문•2001.12.14 01:57예전에 저도 고민했던 것인데요... 디자인타임에 컴포넌트를 생성하면 T짜 빼고 + 를 붙이게 되지요. ...
-
-
- bingyou
- 2001.12.14 01:17
- 0 COMMENTS
- /
- 0 LIKES
-
- 동동
- 2001.12.14 01:13
- 0 COMMENTS
- /
- 0 LIKES
-
- 어린왕자A
- 2001.12.14 01:06
- 0 COMMENTS
- /
- 0 LIKES
-
- 임준
- •
- •
- 2001.12.14 00:56
- 1 COMMENTS
- /
- 1 LIKES
Indy의 "IdTCPClient"와 "IdTCPServer"로 소용량 파일전송을 만들려고 합니다. 아래 소스는 "IdTCPClient"에서 파일을 전송하고자 하는데 자꾸 죽네요... 고수님들의 조언을 부탁드립니다. // IdTCPServer procedure TForm1.IdTCPServerEx...-
이경문•2001.12.14 02:05음.. WriteStream이라는 method가 내부적으로 잘라서 처리하는 지 모르겠군요. 일단 WriteStream에서 한꺼...
-
- 김정수
- 2001.12.14 00:52
- 0 COMMENTS
- /
- 0 LIKES
-
- quest
- 2001.12.14 00:49
- 0 COMMENTS
- /
- 0 LIKES
-
- 아가사
- 2001.12.14 00:43
- 0 COMMENTS
- /
- 0 LIKES
-
- 피라니
- 2001.12.14 00:39
- 0 COMMENTS
- /
- 0 LIKES
-
- beaross
- 2001.12.14 00:23
- 0 COMMENTS
- /
- 0 LIKES
-
- miso
- •
- 2001.12.14 00:10
- 1 COMMENTS
- /
- 0 LIKES
-
김하늘•2001.12.14 19:36dpr에 uses밑에 걸어서 사용할경우 프로그램의 크기는 커집니다(정적으로)... 보통 프로젝트 옵션에서 ...
-
-
- 장민우
- •
- 2001.12.13 23:28
- 2 COMMENTS
- /
- 0 LIKES
-
장민우•2001.12.14 04:42장민우 wrote: > 일정면을 기준으로 해서 지정된 거리를 갖는 a1, a2, b1, b2 가 있습니다. > 직선 A 는 ...
-
어린왕자A•2001.12.14 01:09장민우 wrote: > 일정면을 기준으로 해서 지정된 거리를 갖는 a1, a2, b1, b2 가 있습니다. > 직선 A 는 ...
-
- socket초보
- •
- 2001.12.13 23:21
- 4 COMMENTS
- /
- 0 LIKES
-
이경문•2001.12.14 01:47소켓관련 컴포넌트나 라이브러리는 많이 있는데, 처음 사용하신다면 ClientSocket을 쓰시는 게 무방합니다....
-
socket초보•2001.12.14 02:43이경문 wrote: > 소켓관련 컴포넌트나 라이브러리는 많이 있는데, 처음 사용하신다면 ClientSocket을 쓰시...
-
이경문•2001.12.14 02:5110054 : 현재 연결은 원격 호스트에 의해 강제로 끊겼습니다. 연결이 되었는데 10054에러가 날 수도 있...
-
socket초보•2001.12.14 03:22님아 소스는 아래와 같아요 이상이 어딘지 모르겠어요. unit socket; interface uses Windows, M...
-
- 이지인
- 2001.12.13 22:47
- 0 COMMENTS
- /
- 0 LIKES
-
- 동글이
- •
- 2001.12.13 22:13
- 1 COMMENTS
- /
- 0 LIKES
-
innover•2001.12.20 00:02OnBeforeNavigate2 에서 TargetFrameName을 _blank 로 설정하도록 해보세요. 물론 처음 페이지를 띄울때에...
-
- 훈
- 2001.12.13 21:52
- 0 COMMENTS
- /
- 0 LIKES
-
- 점시기
- 2001.12.13 21:32
- 0 COMMENTS
- /
- 0 LIKES
-
- 폭폭
- 2001.12.13 21:04
- 0 COMMENTS
- /
- 0 LIKES
일단 WriteStream에서 한꺼번에 다 보내지 말고
while문을 이용하여 조금씩(2048바이트정도) 나누어서 WriteBuffer로 보내 보시기 바랍니다.
임준 wrote:
> Indy의 "IdTCPClient"와 "IdTCPServer"로 소용량 파일전송을 만들려고 합니다.
> 아래 소스는 "IdTCPClient"에서 파일을 전송하고자 하는데 자꾸 죽네요...
>
> 고수님들의 조언을 부탁드립니다.
>
> // IdTCPServer
> procedure TForm1.IdTCPServerExecute(AThread: TIdPeerThread);
> var
> S : String;
> Stream : TFileStream;
> begin
> Memo1.Lines.Add('IdTCPServerExecute : ' + AThread.Connection.Binding.PeerIP);
>
> S := AThread.Connection.ReadLn;
> if S = 'Ready' then
> begin
> Stream := TFileStream.Create(ExtractFilePath(Application.ExeName) + AThread.Connection.Binding.PeerIP + '.bmp',fmCreate);
> try
> While AThread.Connection.Connected do
> begin
> AThread.Connection.ReadStream(Stream, -1, True);
> FreeAndNil(Stream);
> AThread.Connection.Disconnect;
> end;
> finally
> Stream.Free;
> end;
> end;
> end;
>
> // IdTCPClient
>
> procedure TForm1.Button2Click(Sender: TObject);
> begin
> if Not IdTCPClient.Connected then
> begin
> if FileExists(ExtractFilePath(Application.ExeName) + '1.bmp') then
> begin
> IdTCPClient.Connect;
>
> if IdTCPClient.Connected then
> begin
> IdTCPClient.WriteLn('Ready');
>
> SendStream := TFileStream.Create(ExtractFilePath(Application.ExeName) + '1.bmp',fmOpenRead);
> try
> IdTCPClient.OpenWriteBuffer;
> IdTCPClient.WriteStream(SendStream);
>
> // 여기에서 ShowMessage(''); 로 잠시 멈추고 하면 전송되는데 sleep 등으로 임의로 멈춘 후에 하면 안되네요...
>
> IdTCPClient.CloseWriteBuffer;
> finally
> SendStream.Free;
> end;
> IdTCPClient.Disconnect;
> end;
> end;
> end;
> end;