안녕하세요..

이제는 상큼한봄인에ㅛ

참으로 이상해서요

인디로 프로그램 송수신을 만는다음에요..

제가 98에서 2000으로 보면 무지 파일이 잘가는데

2000에서 98로 파일 보내기 하면 에러가 떠요

그런데요.. 소스를 가지고 98에서 파일을 받으면 2000에서 보낸 파일도 받을수가 있는데

실행파일로 만들어서 받으면 에러가 나요..

알려주세요..


아래는 소스입니다. 파일보내기하는 소스입니다.

procedure TFrmSRecv.FileSendResult_0(Cmd : String);
Const BuffSize =32768;
var
  Buff    : array[0..BuffSize - 1] of Char;
  FStream : TFileStream;
  CopySize: Integer;

begin

  if Trim(Cmd) = 'YES' then
  begin
     Try
        Gauge.ShowText  :=True;

        FStream := TFileStream.Create(FileName,fmOpenRead);
        Gauge.MaxValue  := FStream.Size;
        while True do
        begin
           CopySize := FStream.Read(Buff,BuffSize);
           if CopySize <> 0 then
           begin
              A_Sockt.Socket.WriteBuffer(Buff,BuffSize,True);
              Gauge.Progress := Gauge.Progress + BuffSize;
           end
           else Break;
        end;
       Gauge.Progress := 0;
       Gauge.ShowText  :=False;
     Finally
      FStream.Free;
     end;
  end
  else if Trim(Cmd) = 'YES_1' then
  begin
    A_Sockt.Socket.Disconnect;
    S_RecvState('자료 전송 성공적으로 완료 되었습니다.');
    Gauge.Progress := 0;
    Gauge.ShowText  :=False;
  end
  else if Trim(Cmd) = 'NO' then
  begin
    S_RecvState('상대방이 전송취소하였습니다.');
    A_Sockt.Socket.Disconnect;
  end