Internetverbindung freigeben

[danielmagin]

Probier mal folgendes, vielleicht kann der compiler das InterfaceElement Item nicht auflösen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  NetSharingManager: INetSharingManager;
  AllConnections: INetSharingEveryConnectionCollection;
  Item: INetConnection;
  props: INetConnectionProps;

  idx: integer;
begin
  NetSharingManager := CoNetSharingManager.Create;
  ShowMessage(BoolToStr(NetSharingManager.SharingInstalled, true)); // True, wenn Admin-Rechte und alles OK, sonst False
  AllConnections := NetSharingManager.EnumEveryConnection;

  //for Item in AllConnections do // Das hier ist Zeile 38
  for idx :=0 to  AllConnections.Count -1 do // Das hier ist Zeile 38
  begin
    item:=AllConnection[idx]; //wenn das nicht geht dann vielleicht gibt es in AllConnections.Items oder sowas um das Item element auf Grund eines Index zu bekommen
    props := NetSharingManager.NetConnectionProps[Item];
    ListBox1.Items.Add('Name: '       + props.Name);
    ListBox1.Items.Add('Guid: '       + props.Guid);
    ListBox1.Items.Add('DeviceName: ' + props.DeviceName);
    ListBox1.Items.Add('Status: '     + props.Status);
    ListBox1.Items.Add('MediaType: '  + props.MediaType);

    ListBox1.Items.Add('');
    ListBox1.Items.Add('');
  end;
end;