Mit PChar arbeiten

[MathiasSimmack]

Hier hast du noch ein Beispiel (dann hör ich aber auch auf, dich zu nerven) aus der Rubrik: "Es ist zwar ein PChar, aber ..." -

Die Funktion [msdn]"InternetCrackUrl"[/msdn] zerlegt einen Grafen () in seine Bestandteile; sprich: Host, Schema, usw. Die entsprechenden Membervariablen sind zwar als pchar deklariert, allerdings dienen sie hier der Ausgabe der Daten. Das heißt, die Funktion erwartet von dir, dass du einen Puffer bereitstellst, der groß genug ist.

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
const
  szUrl   =
    'http://www.delphipraxis.net/topic28303_profil+temp+verzeichniss.html';
var
  url     : TUrlComponents;
  scheme,
  buf,
  urlpath : array[0..MAX_PATH]of char;
begin
  ZeroMemory(@url,sizeof(url));
  url.dwStructSize     := sizeof(url);

  url.lpszHostName     := buf;
  url.dwHostNameLength := sizeof(buf);
  url.lpszScheme       := scheme;
  url.dwSchemeLength   := sizeof(scheme);
  url.lpszUrlPath      := urlpath;
  url.dwUrlPathLength  := sizeof(urlpath);

  if(InternetCrackUrl(szUrl,length(szUrl),0,url)) then
    MessageBox(0,pchar(Format('Host: %s' + #13#10 + 'Schema: %s' + #13#10 +
    'URL: %s',[buf,scheme,urlpath])),nil,0);
end;

Wenn du denkst, dass das statische Array (0-MAX_PATH) nicht ausreicht, dann kannst du auch hier mit "pchar"-Variablen arbeiten, wobei du dann natürlich den Puffer vorher mit "GetMem" erzeugen musst. Ansonsten rumpelt´s wieder ...

So, genug jetzt.