Procedure ssendfile;
var fm,fm2:TFilestream;
begin
try
fm:=TFileStream.Create(form7.Edit1.Text, fmOpenRead);
fm.Position:=0;
fm2:=TfileStream.create('temp',fmcreate);
fm2.position:=0;
cipher.initstr(key,tdcp_sha1);
cipher.EncryptStream(fm,fm2,fm.size);
cipher.burn;
form1.ClientSocket1.socket.SendText('#X'+form7.edit1.text+'#0'+inttostr(form1.listbox2.itemindex));
fm2.position:=0;
form1.ClientSocket1.socket.SendText('Size:'+IntToStr(fm2.Size)+ #0);
form7.StatusBar1.SimpleText:='Выполняется отправка '+inttostr(fm2.size);
form1.ClientSocket1.Socket.SendStream(fm2);
form7.edit1.text:='';
form7.hide;
fm.free;
fm2.Free;
except
showmessage('Ошибка!');
end;
end;
вылетает Invalid Pointer Operation и вдобавок ещё одна ошибка с длинным содержанием, начинается "Unhabled execution in...". Было ещё несколько моментов с вылетом ошибки, но их я сумел исправить сам, здесь не получается..