Dateiaustausch zwischen clientsocket und serversocket..^^

[cRayZo]

also ich habs jetzt eingefügt und er startet auch ohne Probleme und connected auch ohne Probleme. Wenn ich beim Server per button einen screenshot machen will und ihn zu schicken, dann kommt dieser Fehler:

Zitat von Fehlermeldung:

Zugriffsverletzung bei Adresse 004223BB in Modul Projekt1.exe. Lesen von Adresse 5557565B

ich hab den Fehler abgefangen. Er meckert dreimal im Code

Server:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Stream : TMemoryStream;
  bitmap:Tbitmap;
begin
 Stream := TMemoryStream.Create;
 MakeScreenShot(bitmap); //Fehlermeldung! Wundert mich, der Code war aus ner Codelibrary O:-)
 bitmap.SaveToStream(Stream); //Fehlermeldung!
 Stream.Position := 0;
 Serversocket1.Socket.Connections[0].SendStream(Stream);
 bitmap.Free; //Fehlermeldung!
end;

//edit: um herauszufinden wie lang der stream ist: würde doch so gehen oder?:
sizeof(stream) //

der Vollständigkeit halber hier nochmal der abgeänderte Clienttext:

Delphi-Quellcode:

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var
  Stream : TFileStream;
begin
Stream := TFileStream.Create('c:\teststream.bmp', fmCreate or fmShareDenyWrite);
clientsocket1.Socket.ReceiveBuf(stream,sizeof(stream));
image1.Picture.Bitmap.LoadFromStream(stream);
end;