Hallo,
ich habe da ein kleines Problem mit den Stream Komponenten von FastNet.
Ich wollte einen Stream (TMemoryStream) über ein Lokales Netz versenden.
Wenn ich aber nun den Stream mit der Methode SendStream versende meldet mir die Serverseite, das er diesen Wert nicht in Integer (??) umwandeln kann bzw. kein Integerwert ist.
Warum ??
Auf der Server Seite geht er noch nicht einmal in eine Behandlungsroutine rein (ausser natürlich OnClientContact).
Ein Kurzes Beispiel für den Client :
---------------------------------------
Delphi-Quellcode:
procedure TVideoForm.SampleGrabberBuffer(sender: TObject;
SampleTime: Double; pBuffer: PByte; BufferLen: Integer);
var MStream : TMemoryStream;
Bitmap : TBitmap;
begin
MStream := TMemoryStream.Create;
Bitmap := TBitmap.Create;
if CallBack.Checked then
begin
Image.Canvas.Lock;
try
SampleGrabber.GetBitmap(Bitmap, pBuffer, BufferLen);
Bitmap.SaveToStream(MStream);
MStream.Position := 0;
Client.SendStream(MStream);
finally
Image.Canvas.Unlock;
end;
end;
MStream.Free;
Bitmap.Free;
end;
Das Bild wird hier auch in den Stream geschrieben (wenn ich das in ein TImage lade wird es auch angezeigt) nur beim Versenden gibt es Probleme (s.o.)
Ich hoffe ihr könnt mir helfen.