UPNP kapiers nicht

[runger]

Hi Luckie,
das ist keine neue Frage, sondern immer noch die alte Frage.

Gruss Rainer

[TKC]

@runger

Ich habe dir doch den Link zum passenden Thread per PN geschickt ... Wer lesen kann ist klar im Vorteil :wink: !

UPnP Ports

Hier noch ein Auszug davon :

Delphi-Quellcode:

procedure GetPortList(WANIPConn:UPnPService;lbDebug:TListBox);
var
  sOut                        : OleVariant;
  sArg                        : OleVariant;
  ret                         : OleVariant;
  iCount                      : Integer;
  x                           : Integer;

begin
  if not Assigned(WANIPConn) then exit;

  try
    // Portmappings zählen
    iCount := WANIPConn.QueryStateVariable('PortMappingNumberOfEntries');


    sOut := VarArrayCreate([0, 7], varVariant);
    sArg := VarArrayCreate([0, 0], varVariant);

    //Alle Portmappings durchlaufen
    for x := 0 to iCount - 1 do
      begin
        sArg[0] := x;
        ret := WANIPConn.InvokeAction('GetGenericPortMappingEntry', sArg, sOut);

        lbDebug.Items.Add(
          sOut[0] + '-'                           //RemoteHost
          + IntToStr(sOut[1]) + '-'               //ExternalPort
          + sOut[2] + '-'                         //Protocol
          + IntToStr(sOut[3]) + '-'               //InternalPort
          + sOut[4] + '-'                         //InternalClient
          + IntToStr(sOut[5]) + '-'               //Enabled
          + sOut[6] + '-'                         //PortMappingDescription
          + IntToStr(sOut[7])                     //LeaseDuration
          );

      end;

    VariantClear(sArg);
    VariantClear(sOut);
  except

  end;
end;