so das funktioniert soweit super blos jetzt hab ich doch beim schreiben nen Problem...
Delphi-Quellcode:
procedure sendbuf2server(s_com:ansistring; fstream:tfilestream);
var
Buffer : array[0..4096] of char;
s_text,s_size: ansistring;
F:TFilestream;
I: integer;
ipos:integer;
begin
repeat
if fileexists('D:\a.jpg') then
begin
f:=TFileStream.Create('D:\a.jpg', fmShareDenyWrite);
end
else
begin
f:=TFileStream.Create('D:\a.jpg', fmCreate or fmShareDenyWrite);
end;
s_text:=inttostr(SizeOf(buffer))+'|'+s_com+':'+inttostr(FStream.Position)+':';
Move(s_text[1],Buffer[0],length(s_text));
f.Position:=FStream.Position;
FStream.Read(Buffer[length(s_text)],SizeOf(Buffer)-length(s_text));
s_text:='';
for I := 0 to sizeof(buffer) - 1 do
begin
s_text:=s_text+buffer[i];
end;
s_size:=split_vor(s_text,'|',true);
setlength(s_text,strtoint(s_size));
s_text:=split_nach(s_text,':',true);
s_text:=split_nach(s_text,':',true);
s_text:=split_nach(s_text,':',true);
f.Write(s_text[1],length(s_text));
f.free;
end;
end;
das ist mal wieder aus dem kontext gerissen^^ und zwar ist das Problem glaube das setzten der Position da meine Datei die f ausspuckt nur 4,00 kb groß is was mache ich falsch?