ایراد این برنامه کجاست؟؟؟

[hamid20live]

ضمن سلام خدمت دوستان

لطف کنید بگید ایراد این برنامه کجاست که 2 تا ارور میده!

[gbg]

موقع کمپایل ارور میده یا موقع اجرا؟
اگه موقع اجرا اررور میده یا ارسال نمیکنه مطمعن شو که پورت روی کامپیوتر باز باشه

[hamid20live]

موقع اجرا ارور میده

پورت رو چک کردم بازه

شما خودتون یه بار اجراش کنین لطفا متوجه میشین

[hamid20live]

این دوتا ارور رو میده

76953

خطای اولی به خاطر اسم فایل بود برطرف شد ولی تو خطای سوکت موندم!

[gbg]

من فقط اجرا کردم و بدون مشکل اجرا شد بخاطر همین پرسیدم

[hamid20live]

وقتی فایل send می کنم این خطا رو میده

[دلفــي]

ضمن سلام خدمت دوستان

لطف کنید بگید ایراد این برنامه کجاست که 2 تا ارور میده!

برا رفع مشكل اول اين كد رو جايگذين كد قبليت كن :
شما نام فايل و انداه اون رو در يك رشته ارسال مي كرديد كه اين باعث ايجاد اين مشكل در سرور مي شد !


procedure TForm1.Button7Click(Sender: TObject);
var
FName : string;
Size : integer;
begin
if (client.Active = true) and (filelistbox1.ItemIndex > -1) then begin
FName := filelistbox1.FileName;
Stream := TFileStream.Create(Fname,fmopenread);
Stream.Position := 0;
Size := Stream.Size;
memo1.Lines.add('Setting up the file transfer...');
memo1.lines.add('Sending file size for ' + ExtractFileName(Fname) + '...');
Client.Socket.SendText('!SIZE' + inttostr(Size));
filesize.Text := inttostr(Size);
Stream.Free;
Client.Active := False;
Client.Active := True;
Client.Socket.SendText('!FILE' + ExtractFileName(Fname));
memo1.lines.add('Sending file name for ' + ExtractFileName(Fname) + '...');
filename.Text := ExtractFileName(FName);
sleep(2000);
FileSocket.Host := edit1.text;
FileSocket.Open;
end;
end;


براي رفع مشكل دوم هم ببين كجا با سوكت غير فعال داده ارسال يا دريافت ميكني ؟! تريس كن پيداش مي كني .

موفق باشيد .