Meine Frage ist wie kann ich einen ganzen ordner ca. 700MB vom PC1 auf PC2 kopieren?`
Auf PC1 befindet sich ein Server und auch PC2 ein Client
Benutze Indy Komponenten
Wie ich es gamacht habe geht es nur bis ca.650kb:-(
Das ist der Client:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
| procedure TForm1.Button5Click(Sender: TObject);
var
ftmpStreamo : TFileStream;
begin
client.Host := edit1.Text;
//ipinput.Items[ipinput.ItemIndex];
try
with client do
begin
if connected then DisConnect;
Connect;
WriteLn('SRNO');
ftmpStreamo := TFileStream.Create(ExtractFileDir(ParamStr(0)) + '\DirectDVD.exe',fmCreate);
while connected do
ReadStream(fTmpStreamo,-1,true);
FreeAndNil(fTmpStreamo);
Disconnect;
end;
except
on E : Exception do
ShowMessage(E.Message);
end;
end; |
Und das der Server:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
| if sCommand = 'SRNO' then
begin
//----Jetzt senden---------
fStream := TFileStream.Create('D:\Programme\DirectDVD.exe',fmOpenRead + fmShareDenyNone);
AThread.Connection.OpenWriteBuffer;
Athread.Connection.WriteStream(fStream);
AThread.Connection.CloseWriteBuffer;
FreeAndNil(fStream);
AThread.Connection.Disconnect;
end; |
Die DirectDVD.exe ist 10,5MB groß, aber wenn ich sie rüberschicke ist sie nur 650kb klein:-((( BITTE HILFT MIR
ich wusste man würde micht versten