Ergebnis der Suchanfrage

• Forum: Netzwerke

  Re: Stream mit Indy versenden

    Delphi
    by Manzoni, 6. Mär 2004
  procedure TForm1.Button1Click(Sender: TObject);
  var test : TMemoryStream;
  zeiger : ^integer;
  inte,
  inte2 : integer;
  begin
  test:=tmemorystream.Create;
  inte:=4;
  test.Write(inte,sizeof(inte));
  test.Position:=0;
• Forum: Netzwerke

  Re: Stream mit Indy versenden

    Delphi
    by Manzoni, 4. Mär 2004
  Hi,
  
  versuch mal statt
  
  RecInfos.Read(test, sizeof(test));
  
  lieber
  
  RecInfos.Read(Test,RecInfos.Size);
• Forum: Netzwerke

  Re: Stream mit Indy versenden

    Delphi
    by Manzoni, 3. Mär 2004
  probier das mal:
  
  procedure TForm1.ServerExecute(AThread: TIdPeerThread);
  var Big: Integer;
  RecInfos: TMemoryStream;
  Test: Integer;
  begin
  Big := Athread.Connection.ReadInteger;
  RecInfos := TMemoryStream.Create;
  Athread.Connection.ReadStream(RecInfos, Big);
• Forum: Netzwerke

  Re: Stream mit Indy versenden

    Delphi
    by Manzoni, 2. Mär 2004
  procedure TForm1.ServerExecute(AThread: TIdPeerThread);
  var Big: Integer;
  RecInfos: TMemoryStream;
  Test: Integer;
  begin
  Big := Athread.Connection.ReadInteger;
  RecInfos := TMemoryStream.Create;
  Athread.Connection.ReadStream(RecInfos, Big);
  RecInfos.Position:=0;
  Test := RecInfos.Read(Car.Munition, Big); //Wenn ich das richtig sehe, willst du die Anzahl der gelesenen