Wie konvertieren von PAnsichar zu PWidechar?

Ich die Umsetzung Ping-Funktion mithilfe der windows-API in delphi-xe3 von hier
(http://delphi.about.com/od/internetintranet/l/aa081503a.htm).

Ich habe ein problem mit der folgenden Funktion.Es zeigt Fehlermeldung inkompatible Typ Pansichar und Pwidechar.Ich ersetzte Pchar mit PAnsichar jetzt zeigt Ausnahme
'Fehler beim abrufen der IP vom HostName'.

Teste ich es mit "localhost".

Bitte guide was ist die richtige Konvertierung.

const ADP_IP = '127.0.0.1';

procedure TranslateStringToTInAddr(AIP: string; var AInAddr);
var
  phe: PHostEnt;
  pac: PChar;
  GInitData: TWSAData;
begin
  WSAStartup($101, GInitData);
  try
    phe := GetHostByName(PChar(AIP));
    if Assigned(phe) then
    begin
      pac := phe^.h_addr_list^;
      if Assigned(pac) then
      begin
        with TIPAddr(AInAddr).S_un_b do begin
          s_b1 := Byte(pac[0]);
          s_b2 := Byte(pac[1]);
          s_b3 := Byte(pac[2]);
          s_b4 := Byte(pac[3]);
        end;
      end
      else
      begin
        raise Exception.Create('Error getting IP from HostName');
      end;
    end
    else
    begin
      raise Exception.Create('Error getting HostName');
    end;
  except
    FillChar(AInAddr, SizeOf(AInAddr), #0);
  end;
  WSACleanup;
end;
InformationsquelleAutor Xenon Xe | 2013-09-12
  1. 4

    Sie nicht wollen, zu konvertieren von PAnsiChar zu PWideChar. Auf Ihre Unicode-Delphi-Ihre PChar Karten zu PWideChar. Aber gethostbyname erhält PAnsiChar. Sie benötigen zur Konvertierung von Unicode in ANSI.

    Code wie dieser:

    phe := gethostbyname(PAnsiChar(AnsiString(AIP)));

    In anderen Worten, konvertieren Sie Ihre Zeichenfolge zu AnsiString, und dann warf als PAnsiChar. Ich persönlich würde erklären, die AIP parameter AnsiString.

    procedure TranslateStringToTInAddr(const AIP: AnsiString; var AInAddr);

    Und schreiben Sie dann den Aufruf gethostbyname etwa so:

    phe := gethostbyname(PAnsiChar(AIP));

    Dass untypisierte var parameter wirkt auf mich unseriös. Ich sehe keinen zwingenden Grund für seine Verwendung. Was ist falsch deklarieren den Typ TIPAddr? Ihre FillChar ist etwas dubios. Wie können Sie SizeOf auf eine nicht typisierte parameter?

    • danke @David , ich habe es ur Weg .jetzt ist es nicht angezeigt, eventuelle Fehler, aber keine Meldung angezeigt .ich habe nur den code von der Seite und versucht zu kompilieren ,ich m nicht sehr vertraut mit der windows-api. also ich weiß nicht warum, es ist besser, verwenden Sie var AIPaddr oder etwas anderes.
    • Der code nicht zu den display-Meldungen. Eh, meine Antwort sagt Ihnen, was falsch war mit Ihrem Aufruf gethostbyname. Der code in meiner Antwort nicht richtig. Bitte erwarten Sie nicht, mich zu Debuggen, der rest des Programms. Ich antwortete auf die Frage, die Sie fragte. Das ist, wie SO funktioniert.
    • Nein ich meinte, das ich umgesetzt habe den ganzen code in dem link, den ich eingefügt und es dispalys Nachricht.delphi.about.com/od/internetintranet/l/aa081503a.htm .Vielen Dank für Eure Hilfe, ja es hat entfernt den Fehler.
    • von Nachricht ich verstehe Ihre Aussage, daß nicht-Ausnahmen werden ausgelöst, also was Sie sagen ist, dass der gethostbyname() - Funktion funktionierte einwandfrei. Allerdings Stimme ich mit @David, dass die var parameter eingegeben werden muss, wie TIpAddr, da Ihr code abhängt, dass, um zu arbeiten. Die FillChar in den letzten exception-block ist geheimnissvolle mir. Könnten Sie das erklären?
    • Der code kopiert wurde, wörtlich aus dem verlinkten Artikel, die wirkt auf mich unseriös. Ihre Vermutung ist so gut wie meine.
    • Nein, ich kann es erklären, weil das nicht mein code. ich brauche eine ping-Funktion und versucht, diese windows-Funktion. ich m mich versuchen zu verstehen, den code. ich brauche ein wenig Anleitung hier.sollte ich implementieren, die es selbst oder Sie verwenden die windows-api?
    • Ich denke, ich sollte post eine neue Frage für diese Anleitung .Vielen Dank, alle .

    InformationsquelleAutor David Heffernan
Schreibe einen Kommentar