Aus IP und Port wieder DWord machen

[Kanne_Kaffe]

Nabend

ich weiss gab es schon öfter, verstehen tu ich es trotzdem leider nicht
Ich möchte auch einer IP und Port wieder einen Dword Wert erhalten die richtigen functionen habe ich, denke ich, nur versteh ich deren Anwendung nicht ganz:

Delphi-Quellcode:

// (String) IP -> DWord
function GetAddress(FIpAdress: String): DWORD;
begin
  Result := Inet_addr(@FIpAdress[1]);
end;

// (Integer) Port -> Dword
function GetPort(FPort: Integer): DWORD;
begin
  Result := WinSock.htonl(FPort);
end;

Was habe ich hier falsch gemacht?

[Christian Seehase]

Moin Kanne_Kaffe,

inet_addr liefert die Bytes in umgekehrter Reihenfolge wieder zurück.
Ist das das Problem?

[Kanne_Kaffe]

Hallo Christian,

Nein, denke ich jedenfalls nicht.

Ich will eigendlich eine TCP verbidung beenden. Unddabei kommt es zur AV

Delphi-Quellcode:

type
  TSetTcpEntry= Function(pTcpRow: PMIB_TCPROW): DWORD; stdcall;

type
  MIB_TCPROW = packed record
    dwState,
    dwLocalAddr,
    dwLocalPort,
    dwRemoteAddr,
    dwRemotePort: DWORD;
  end;
  PMIB_TCPROW = ^MIB_TCPROW;

function CloseTCPConnection(pTcpRow: PMIB_TCPROW): Boolean;
begin
   pTcpRow.dwState := MIB_TCP_STATE_DELETE_TCB;
   if pSetTcpEntry(pTcpRow) = NO_ERROR then
    Result := True
   else
    Result := False;
end;

function TForm1.GetTCPRow: PMIB_TCPROW;
var
  I, X: Integer;
  S, sLocalIp, sRemoteIp: String;
  iLocalPort, iRemotePort: Cardinal;
begin
  if ListView1.ItemIndex  = -1 then exit;
  S := ListView1.Items.Item[ListView1.ItemIndex].SubItems[1];
  X := Pos(':', S);
  sLocalIp := Copy(S, 1, X-1);
  iLocalPort := StrToInt( Copy(S, X+1, Length(S)) );

  S := ListView1.Items.Item[ListView1.ItemIndex].SubItems[2];
  X := Pos(':', S);
  sRemoteIp := Copy(S, 1, X-1);
  iRemotePort := StrToInt( Copy(S, X+1, Length(S)) );

  Result.dwLocalAddr := GetAddress(PAnsiChar(sLocalIp)); // und hier kommt die AV
  Result.dwLocalPort := GetPort(iLocalPort);             // functionen wie oben geschrieben
  Result.dwRemoteAddr := GetAddress(PChar(sRemoteIp));
  Result.dwRemotePort := GetPort(iRemotePort);
end;

procedure TForm1.Schliessen1Click(Sender: TObject);
begin
  if CloseTCPConnection(GetTCPRow) then
    showmessage('Verbindung geschlossen')
    else
    showmessage('Fehler');
end;

[Klaus01]

Kann es sein , da PMIB_TCPROW ein Zeiger auf MIB_TCPROW ist
und moch kein Speicher alokiert wurde es kracht wenn Du in den Speicher schreiben möchtest?

Grüße
Klaus

[Kanne_Kaffe]

Das kann gut sein. Was muss ich verwenden. GetMem oder AllocMem und wie muss ich das Deklarieren TSockAddr oder so - das ist glaub ich mein Problem.

[Klaus01]

Bin mir da nicht 100% sicher, aber ich würde es mit new(PMIB_TCPROW) probieren.
Um keine Speicherfresser zu produzieren sollte der Speicher dann wieder, wenn er nicht mehr gebraucht wird
mit dispose(PMIB_TCPROW) freigeben werden.

Grüße
Klaus

[Kanne_Kaffe]

Es kommt nicht zur AV bei der Verwendung von ColoseConnection. Soweit bin ich noch gar nicht.
Wenn ich die function GetAddress wie ober beschrieben verwende kommt es zu AV.

[Klaus01]

Was passiert denn wenn Du hier:

Delphi-Quellcode:

 Result.dwLocalAddr := GetAddress(PAnsiChar(sLocalIp)); // und hier kommt die AV 
  Result.dwLocalPort := GetPort(iLocalPort);             // functionen wie oben geschrieben 
  Result.dwRemoteAddr := GetAddress(PChar(sRemoteIp)); 
  Result.dwRemotePort := GetPort(iRemotePort);

einfach einen dummy Wert zum Testen zuweist und nicht Deine Funktionen aufrufst ?

Grüße
Klaus

[Kanne_Kaffe]

Hier war was faul:

Delphi-Quellcode:

Falsch^^
function GetPort(FPort: Integer): DWORD; 
begin 
  Result := WinSock.htonl(FPort); 
end;

// richtig ist...
function GetPort(FPort: Integer): DWORD;
begin
  Result := WinSock.ntohs(FPort);
end;

Aber gehen tut es leider immer noch nicht.

Delphi-Quellcode:

  iTmp := GetAddress(PAnsiChar(sLocalIp));
  Result.dwLocalAddr := iTmp; // hier knalls

iTmp ist Cadinal... Es Geht nicht.

Aber ich weiss jetzt das meine funtionen in ordnung sind, weil ich im "Hin-Und-Her-Modus" die richtigen Ergebnisse bekomme nur lässt es sich nicht dwLocalAdress zuweisen.

[Kanne_Kaffe]

Freudentanz es geht!
hier war das Problem:
  GetMem(Result, SizeOf(Result)); Das fehle in meiner function!
Danke für die Denkanstösse!