[delphi] TWinSocketStream.Write
 

Het lukt me niet om data over een blocking socket te verzenden met TWinSocketStream.Write. Dit werkt:

{sckClient is een nonBlocking TClientSocket}
sckClient.socket.SendText(idstr);

Dit werkt:

{sckFiles is een nonBlocking TClientSocket}
sockstream:=TWinSocketStream.Create(sckFiles.Socket, 60000);
filestream := TFileStream.Create(filename, fmShareDenyWrite);
sockstream.CopyFrom(filestream, 0);

Dit werkt niet:

{sckFiles is een nonBlocking TClientSocket}
sockstream:=TWinSocketStream.Create(sckFiles.Socket, 60000);
sockstream.Write(idstr,length(idstr));

ff delphi installen, en dan kijk ik ff voor je :p

ok! dames en heren, i present you: de meest ranzige methode ever!

strstream:=TStringStream.Create(idstr);
try
sockstream.copyfrom(strstream,0);
finally
strstream.free;
end;

mwa, zo dirty is het niet :) maar mooi dat het opgelost is, kan mijn fucking cdtje niet vinden :p

check trouwens eens http://info.borland.com/new/octane/sneak_peak.html :eek: ziet er nice uit.

lukt het als je in
idstr[1] neerzet in plaats van idstr?