DELPHI AREA Forum

Hey all great forums you got..

I have the strangest problem with my filetransfers in delphi with winsock they sometimes succed and sometimes they fail. Here's my code. hope someone can see the problem.

Code: Select all

SEND FILE

  Procedure Send_file;STDCALL;
       var
       F:File;
       Buffer               :AnsiString;
       Fsize,BytesRead         :Integer;
       dErr:Integer;
       Exitcode:Cardinal;
       begin
       AssignFile(F,transfer.FileName);
       Reset(F, 1);
       FSize := FileSize(F);
       Repeat
       try
        SetLength(Buffer, 4096);
        Buffer[1] := #9;
        BlockRead(F, Buffer[2], 4095,BytesRead);
         except
         exit;
         end;
       If BytesRead > 1 Then
       Begin
      inc(BytesRead,1);
       Repeat

       try
       dErr := Send(Sock, Buffer[1], BytesRead , 0);
       except
       exit
       end;
       If dErr <= 0 Then Begin Break;  End;
       Dec(BytesRead, dErr);
       Delete(Buffer, 1, dErr);
       Until (BytesRead <= 0) Or (dErr <= 0);

       repeat sleep(1); until NextPack =#6;
       NextPack := #0;
       End Else
       Break;
       Until (Sock <= 0) Or
       (dErr <= 0);
       CloseFile(F);
        GetExitCodeThread(GetCurrentThread, ExitCode);
        TerminateThread(GetCurrentThread, ExitCode);

       end;



Code: Select all

 Code for recieving :

     if buffer[0] = #9 then begin
    repeat BlockWrite(form1.User[I].F, Buffer[1], len-1,byteswritten);
     inc(total,byteswritten);
       dec(len,byteswritten +1);
      form1.User[i].StatusBar2.Panels[0].Text:='Download: '+GetKb(Dsize,Total);
     form1.user[i].ProgressBar1.Position := GetPercent(Dsize,total);
    until Len = 0 ;
      sleep(1);
      sent := send(sock,nextPack[1],length(NextPack),0);
       while total >= Dsize do begin
     form1.User[i].StatusBar2.Panels[0].Text := 'Download: file complete';
     closefile(form1.User[I].F);
   form1.user[i].ProgressBar1.Position := 0;
    total := 0;
     break;
     end;
     end;

As you can see I am trying to transfer binary and text in same port.


I really need help as I have searched everywhere for the solution and read severeal Winsock guides.