C nach Delphi übersetzen

[turboPASCAL]

Hi,

durch Luckies Tut. Drucken mit der Windows-API und dem Mangel das es kein Win 9x unterstützt, bin ich auf folgenden C-Code gestossen, in diesem taucht die Funktion strtok() auf.
Leider werde ich aus dem Code nicht schlau was die Funktion macht, wer kann helfen ?

Code:

// Printer name precedes first "," character.
      strtok(cBuffer, ",");

Und wie lässt sich diese Codestelle umsetzen ?

Code:

BOOL DPGetDefaultPrinter(LPTSTR pPrinterName, LPDWORD pdwBufferSize)
{
  PRINTER_INFO_2 *ppi2 = NULL;

// var
//   ppi2: ^PRINTER_INFO_2;

  // ... 

  // Allocate enough space for PRINTER_INFO_2.
  ppi2 = (PRINTER_INFO_2 *)GlobalAlloc(GPTR, dwNeeded);

:gruebel:

[Mystic]

Zitat:

Zitat von turboPASCAL

Leider werde ich aus dem Code nicht schlau was die Funktion macht, wer kann helfen ?

Vielleicht hilft das:

Zitat:

Code:

char *strtok(char *s1, const char *s2);

If s1 is not a null pointer, the function begins a search of the string s1. Otherwise, it begins a search of the string whose address was last stored in an internal static-duration object on an earlier call to the function, as described below. The search proceeds as follows:

The function searches the string for begin, the address of the first element that equals none of the elements of the string s2 (a set of token separators). It considers the terminating null character as part of the search string only.

If the search does not find an element, the function stores the address of the terminating null character in the internal static-duration object (so that a subsequent search beginning with that address will fail) and returns a null pointer. Otherwise, the function searches from begin for end, the address of the first element that equals any one of the elements of the string s2. It again considers the terminating null character as part of the search string only.

If the search does not find an element, the function stores the address of the terminating null character in the internal static-duration object. Otherwise, it stores a null character in the element whose address is end. Then it stores the address of the next element after end in the internal static-duration object (so that a subsequent search beginning with that address will continue with the remaining elements of the string) and returns begin.

Es scheint sich um eine Suchfunktion zu handeln, die anscheinend dazu dient, Strings an gegebenen Zeichen zerlegen zu können.

[DGL-luke]

Naja, da wird ganz eindeutig Speiher zugewiesen. Mit New oder AllocMem solltest du das hinbekommen, der Speicherbereich, der als Pointer zurückgegeben wird, wird allerdings (C ist da wohl so typensicher) gleich nach PPrinterInfo2 (In Delphi ausgedrückt) gecastet, was bei dir nicht notwendig sein sollte. Evtl. kannst du dir auch gleich den Record deklarieren und Delphi übernimmt die Speicherverwaltung.

strtok: Kann man wohl mit der PHP-Funktion vergleichen. Kleines Code-Bespiel:

Code:

string s = strtok("a b c"," ");
if (s == "a")
  Showmessage(Handle, "Works as expected","Success!");

(hoffe, das würde in C oder wenigstens C++ so durchkompilieren. Bin ja schließlich kein Muttersprachler ;) )

Ach ja, ne Übersetzung:

Delphi-Quellcode:

type
  pInteger = ^Integer;
  PPrinter_Info_2 = ^PRINTER_INFO_2;

function DPGetDefaultPrinter(pPrinterName: PChar; pdwBufferSize: PInteger): Boolean;
var ppi2: PPrinter_Info_2;
begin
  ppi2 := PPrinter_Info_2(GetMem(dwNeeded)); //dwNeeded ist wohl ein DWord, das den benötigten Speicher angibt.
  //keine Ahnung, was der GPTR da noch wollte, vielleicht braucht man da in C bzw. braucht die WinAPI da noch ein Hasndle irgendwohin.
end;

@Mystic: Jop.

[marabu]

Hi Matti,

Zitat:

Zitat von turboPASCAL

Leider werde ich aus dem Code nicht schlau was die Funktion macht, wer kann helfen ?

in deinem Fall hast du mehrere Möglichkeiten der Umsetzung:

Delphi-Quellcode:

var
  Buffer: String;
begin
  // Printer name precedes first "," character.

  // Methode "es gibt kein morgen"
  SetLength(Buffer, Pred(Pos(',', Buffs)));

  // Methode "nix wegschmeißen"
  Buffer := Copy(Buffer, 1, Pred(Pos(',', Buffer))); 

  // Methode "keiner hat's gesehen"
  Buffer[Pos(',', Buffer)] := #0; // strtok()
end;

Grüße vom marabu

[Luckie]

Was hast du denn vor? Den Standarddrucke runter Windows 9x zu bekommen? Einfach bei EnumPrinters den entsprechenden Flag setzen. Steht alles im PSDK / MSDN. Und ich aheb zu allen verwendeten API Funktionen eine Linkliste ins MSDN angehangen.

[turboPASCAL]

Zitat:

Zitat von Luckie

Was hast du denn vor? ...

Eine "schöne" Function zu schreiben die ich meiner Lib hinzufügen kann um sie
in Windowsversionen von 98 ++ ;) zu verwenden.

Unter Verwendung dieses Codes bin ich nun soweit gekommen.

Delphi-Quellcode:

program Project1;

uses
  Windows, WinSpool;

type
  TPRINTER_INFO_5 = PRINTER_INFO_5;
  PPRINTER_INFO_5 = ^TPRINTER_INFO_5;

  // function GetDefaultPrinterA(prnName: LPTSTR; var bufSize: DWORD): BOOL; stdcall;
  //   external 'winspool.drv' name 'GetDefaultPrinterA';
  TGetDefaultPrinter = function(prnName: LPTSTR; var bufSize: DWORD): BOOL; stdcall;

var
  lzPrinterName: array[0..1024] of Char;

function GetDefaultPrinterName(PrinterName: LPTSTR; BufferSize: DWORD): DWORD;
var
  osvi: OSVERSIONINFO;
  dwNeeded, dwReturned, lErr, BuffSize: DWORD;
  pPII5: PPRINTER_INFO_5;
  hWinSpoolDrv: THandle;
  GetDefaultPrinter: TGetDefaultPrinter;
begin
  GetDefaultPrinter := nil;
  lErr := 0;

  osvi.dwOSVersionInfoSize := sizeof(OSVERSIONINFO);
  GetVersionEx(osvi);

  if (osvi.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS) then
  begin
    if not EnumPrinters(PRINTER_ENUM_DEFAULT, nil, 5, nil, 0, dwNeeded, dwReturned)
      then lerr := GetLastError;

    pPII5 := PPRINTER_INFO_5(LocalAlloc(LPTR, dwNeeded));

    if pPII5 = nil then
    begin
      lerr := GetLastError;
    end else
    begin
      if not EnumPrinters(PRINTER_ENUM_DEFAULT, nil, 5, PBYTE(pPII5), dwNeeded,
        dwNeeded, dwReturned) then
      begin
        lerr := GetLastError;
      end else
      begin
        if (dwReturned > 0) then
        begin
          if (DWORD(lstrlen(pPII5.pPrinterName)) > BufferSize - 1) then
            lerr := ERROR_INSUFFICIENT_BUFFER
          else
          begin
            lstrcpy(PrinterName, pPII5.pPrinterName);
            lerr := ERROR_SUCCESS;
          end;
        end
        else
        begin
          lstrcpy(PrinterName, '0'); // !?
          lerr := ERROR_SUCCESS;
        end;
      end;

      LocalFree(DWORD(pPII5)); // !?
    end;
  end else
    if (osvi.dwPlatformId = VER_PLATFORM_WIN32_NT) then
    begin
      if (osvi.dwMajorVersion >= 5) then // Windows 2000 or later
      begin
        BuffSize := BufferSize;

        hWinSpoolDrv := LoadLibrary('WinSpool.drv');

        if hWinSpoolDrv <> 0 then
          @GetDefaultPrinter := GetProcAddress(hWinSpoolDrv, 'GetDefaultPrinterA');

        if @GetDefaultPrinter <> nil then
        begin
          if not GetDefaultPrinter(PrinterName, BuffSize)
            then lerr := GetLastError
          else lerr := ERROR_SUCCESS;
        end else
          lerr := ERROR_SUCCESS;

        if hWinSpoolDrv <> 0 then FreeLibrary(hWinSpoolDrv);

      end
      else // Windows NT 4.0 or earlier
      begin
        if (GetProfileString('windows', 'device', '', PrinterName, BufferSize) =
          BufferSize - 1)
          then lerr := ERROR_INSUFFICIENT_BUFFER
          else lerr := ERROR_SUCCESS;

        PrinterName[Pos(',', PrinterName)-1] := #0;
      end;
    end;

  Result := lerr;
end;


BEGIN
  GetDefaultPrinterName(lzPrinterName, sizeof(lzPrinterName));
  MessageBox(0, lzPrinterName, 'DefaultPrinter:', MB_OK);
END.

Unter win 98 und XP funktioniert das schon mal, mit Win NT kann ich es leider nicht testen...

PS.: "// !?" = unsichere Stellen ;)

[turboPASCAL]

Hi,

...ich nochmal. Ich grübele gerade über diese Codestelle:

Code:

DWORD GetDefaultPrinterName(LPTSTR PrinterName, DWORD BufferSize)
{
 /* ... */
  char* p;

/* ... */

{
      if (GetProfileString("windows","device","",PrinterName,BufferSize) == BufferSize-1)
        return ERROR_INSUFFICIENT_BUFFER;

      p = PrinterName;
      while (*p != '0' && *p != ',')
        ++p;
      *p = '0';

      rc = ERROR_SUCCESS;
    }
  }

  return rc;
}

Die macht für mich keinen Sinn, da mit der Variable p (PChar bzw. Pointer of Char) nichts weiter angefangen wird. Ist das richtig ?

[Mystic]

Denk daran, dass es ein Pointer ist. Änderungen an den Daten, auf die p zeigt ändern auch die Daten, auf die PrinterName zeigt, da es die selben sind.

Code:

p = PrinterName;
while (*p != '0' && *p != ',')
  ++p;
*p = '0'

Der Code setzt die erste Null oder das erste Komma (je nachdem, was zuerst kommt) in der Zeichenfolge PrinterName auf Null.

[turboPASCAL]

Achso, p zeigt auf PrinterName. Also könnte ich ja auch direkt mit PrinterName arbeiten.

thx.

[sniper_w]

Zitat:

Zitat von DGL-luke

(C ist da wohl so typensicher)

Nicht ganz. Wenn es eine Sprache geben sollte wo man "typ unsicher" unterwegs ist, dann C. Dass es da ein Typecast gibt ist eine Geschmackssache. In C++ ist da was anders, ein Typecast muss da sein.