[delphi] TWinSocketStream.Write

[deathz0rz]

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));

[Screaming Slave]

ff delphi installen, en dan kijk ik ff voor je

[deathz0rz]

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;

[Screaming Slave]

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

[Screaming Slave]

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

[McMotion]

lukt het als je in

sockstream.Write(idstr,length(idstr));

idstr[1] neerzet in plaats van idstr?