String aus Pointerangabe auslesen

[hsbc]

Hallo allerseits,

ich habe folgenden Funktionsaufruf:

Delphi-Quellcode:

procedure StatusCallback(hInet: HINTERNET; Context, Status: DWORD;
                         pInformation: Pointer; InfoLength: DWORD); stdcall;

Jetzt möchte ich die Information, welche sich hinter pInformation verbirgt und InfoLength Zeichen lang ist, auslesen.

Da ich mit Pointern noch nicht gearbeitet habe, kenne ich hier mich leider nicht aus. Kann mir vielleicht jemand auf die Sprünge helfen.

mfg
Herbert

[sniper_w]

Hi. Einem String kann man es so zuweisen:

Delphi-Quellcode:

var 
  i: Integer;
  strInfo: string;

begin

  SetLength(strInfo, InfoLength);

  for i:=1 fo High(strInfo) do strInfo[i] := PChar(pInfomation)[i-1];

end;

Auf Fehler nicht geprüft.

[3_of_8]

Ich würde es so machen:

Delphi-Quellcode:

var str: String;
begin
  setlength(str, InfoLength);
  str:=PString(pInformation)^;
end;

[marabu]

Hallo Herbert,

da kann sich sehr Unterschiedliches hinter dem Zeiger verbergen:

Delphi-Quellcode:

uses
  WinSock,
  WinInet;

procedure StatusCallback(hInet: HINTERNET; Context, Status: DWORD;
    pInformation: Pointer; InfoLength: DWORD);
var
  sa: TSockAddr;
  iar: TInternetAsyncResult;
  s: String;
  dw: DWORD;
begin
  case Status of
    INTERNET_STATUS_CONNECTING_TO_SERVER,
    INTERNET_STATUS_CONNECTED_TO_SERVER:
      Move(pInformation^, sa, SizeOf(sa));
    INTERNET_STATUS_REQUEST_COMPLETE,
    INTERNET_STATUS_HANDLE_CREATED:
      Move(pInformation^, iar, SizeOf(iar));
    INTERNET_STATUS_REDIRECT,               // URL
    INTERNET_STATUS_RESOLVING_NAME,         // HOSTNAME
    INTERNET_STATUS_NAME_RESOLVED:          // HOSTNAME
      s := PChar(pInformation);
    INTERNET_STATUS_STATE_CHANGE,
    INTERNET_STATUS_RESPONSE_RECEIVED,
    INTERNET_STATUS_REQUEST_SENT:
      dw := PDWORD(pInformation)^;
  end;
end;

Getippt und nicht getestet.

Grüße vom marabu

[hsbc]

Vielen herzlichen Dank an alle.

Werde das gleich mal versuchen ...

mfg
Herbert