Thread: Help-Me Error In My Source (Files Upload)

//CLIENTE//
procedure TFCliente.BtnUpClick(Sender: TObject);
var
//
FStream:TFileStream;
Nome:String;
Tamanho:Integer;
//
begin
//---------------------------------//
If Open.execute then
Begin
Nome:= ExtractFileName(Open.FileName);
FStream:=TFileStream.Create(Open.Filename,FMOpenRe ad);
try
begin
FStream.Position:=0;
Tamanho:= FStream.Size;
CS.Socket.SendText('UP'+'|'+Nome+'|'+(IntToStr(Tam anho)));
CS.Socket.SendStream(FStream);
Status.Lines.Add('Nome: '+Nome+' | Tamanho: '+IntToStr(Tamanho)+' | Enviado com sucesso.')
End;
except
Showmessage('Impossivel Enviar Arquivo');
FStream.Free;
end;
end;
end;

//----Servidor----///
procedure TFServidor.ssClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
Comando,Tudo,Nome,Tamanho,Pasta:String;
Buf:Int64;
Len,RevLen:Integer;
begin
Tudo:=Socket.ReceiveText; //Recebe Tudo que o cliente envia;
//--Comando Enviar--//
Comando:=Copy(Tudo,0,2);
//--Lê o Nome do arquivo--//
Nome:=Copy(Tudo,4,Length(tudo));
Nome:=Copy(Tudo,4,Pos('|',Nome)-1);
//--Lê o tamanho do arquivo--//
Tamanho:=Copy(Tudo,Length(Nome)+5,Length(Tudo));
//


//Verifica os Comandos Enviados pelo servidor//
If Comando = 'UP' Then
//
Edit1.Text:= Comando;
Edit2.Text:= Nome;
Edit3.Text:= Tamanho;

Pasta:= ExtractFilePath(Pasta)+Pasta;
//-----------------------//
Len:=SS.Socket.ReceiveLength;
Buf:=SS.Socket.ReceiveBuf(Buf,Len);
//-----------------------//
FStream:=TFileStream.Create(Nome,FmCREATE or FmOPENWRITE and Fmsharedenywrite);
while Len > 0 do
begin
RevLen := Socket.ReceiveBuf(Buf, Sizeof(Buf));
if RevLen <= 0 then
Break
else
FStream.Write(Buf, RevLen);
if FStream.Size >= StrToInt(Edit3.Text) then
begin
FStream.Free;
if Messagedlg('Deseja Abrir o arquivo?', mtConfirmation, [MbYes,MbNo],0) = MrYes then
begin
ShellExecute(Handle, 'Abrir', pchar(Pasta),nil, nil, SW_NORMAL);
end;
Break;
end;
end;
End;

//-------------------------------------------------------------------------//
Please, Help-Me.
Source error?

Sorry, My English.. Very Very Bad.

not ur english but the code toooo

firstoff

1 u are sending a command i assume (UP + some shitty text)
2 then u send a stream without any command in it/header????
.. but on the server side u still try to extract a command from the arriving data???

3 be aware that the tsocket shit is nonblocking and uses Windows messages this might result in fragmentet data/ not eversything arfrives

i would recommend rewriteing the whole thing and advise thinking beforehand

a good old loop and a working protocol should sort things out

Tanks by Help.

I am from Brazil. :cool:



Do you have any example of Upload And Download :confused: