Linkuri HotPDF în Delphi: sfaturi pentru adnotarea PrintHyperlink

Această versiune localizată intră direct în Add clickable hyperlinks to PDF files with HotPDF și folosește articolul englez actualizat ca reper tehnic pentru echipele Delphi, PDF și software documentar

Pagina transformă articolul de bază actualizat în puncte concrete de control pentru proiectare, implementare și validare

Ce a fost sincronizat din articolul englez

Textul de bază în engleză a fost extins cu context de implementare, decizii tehnice și exemple concrete, astfel că pagina trebuie citită ca un ghid de lucru, nu ca un rezumat scurt

Secțiuni importante din articolul de bază actualizat:

• Folosește mai întâi fișiere mici de intrare, ușor de reprodus
• Păstrează neschimbate numele produselor, API-urilor, fișierelor și valorile literale
• Salvează ieșirea validatorului și informațiile de versiune împreună cu fișierul eșantion generat

Alegeri practice de implementare

Pornește de la tipul de fișier, rezultatul așteptat și starea de eroare care trebuie afișată utilizatorului. Leagă apoi fiecare apel API de un rezultat verificabil, astfel încât validarea, logarea și suportul să poată reproduce cazul clientului

• Folosește mai întâi fișiere mici de intrare, ușor de reprodus
• Păstrează neschimbate numele produselor, API-urilor, fișierelor și valorile literale
• Salvează ieșirea validatorului și informațiile de versiune împreună cu fișierul eșantion generat

Verificare înainte de publicare

Verifică fișierul de ieșire cu aceleași instrumente pe care le va folosi clientul sau arhiva. Notează versiunea componentei, datele de test, versiunea validatorului și rezultatul observat pentru a urmări precis o regresie ulterioară

Note suplimentare

Această completare transformă versiunea scurtă într-un ghid de lucru mai util și rămâne aliniată cu Add clickable hyperlinks to PDF files with HotPDF și cu baza tehnică din articolul englez. Textul trebuie să arate clar cu ce tip de intrare pornește tema, ce rezultat este așteptat și în ce punct trebuie confirmat comportamentul prin validation

La rescriere contează ordinea deciziilor: mai întâi forma datelor, apoi limita schimbării, după aceea dependențele API și, la final, comportamentul rezultat. Dacă articolul menționează mai multe opțiuni, merită explicat și ce variantă este mai ușor de susținut în maintenance, support și în reproducerea unei probleme

Orice code block, nume de fișier, nume de API și valoare literal trebuie să rămână neschimbate. Explicația din jur poate fi mai amplă, dar exemplul de cod trebuie să fie o referință exactă, astfel încât cititorul să îl poată compara direct cu proiectul lui Delphi, C++Builder sau Lazarus/FPC

Secțiunea de validation ar trebui să menționeze un fișier de intrare mic, compararea rezultatului și notarea versiunii de component sau validator. Dacă pagina descrie un bug fix sau o migrare, traseul de reproducere, starea observată inițial și punctul de confirmare trebuie spuse clar, ca să poată fi urmărită orice regression fără presupuneri

O astfel de extindere face pagina utilă și după prima lectură: pentru reviewer ca explicație a deciziei, pentru support ca fundal de diagnostic și pentru echipa de întreținere ca notă de referință înainte de modificările viitoare

• Nu schimba numele produselor, API-urilor, fișierelor sau valorile literal
• Păstrează code block-urile exact așa cum sunt
• Descrie validation cu fișier de probă și rezultat comparabil
• Explică ordinea deciziilor, nu doar un rezumat foarte scurt

Exemple de cod suplimentare

procedure CreateLinkedReport(const FileName: string);
var
  Pdf: THotPDF;
begin
  Pdf := THotPDF.Create(nil);
  try
    Pdf.FileName := FileName;
    Pdf.BeginDoc;

    Pdf.CurrentPage.SetFont('Arial', [], 11);

    // Default blue for informational links
    Pdf.CurrentPage.TextOut(50, 750, 0, 'Reference links:');
    Pdf.CurrentPage.PrintHyperlink(50, 720, 'Product page', 'https://www.loslab.com/en-us/pdf-library/delphi-pdf-component.html');
    Pdf.CurrentPage.PrintHyperlink(50, 695, 'Online manual', 'https://www.loslab.com/en-us/pdf-library/delphi-pdf-component.html');

    // Red for the action link
    Pdf.CurrentPage.SetRGBHyperlinkColor(clRed);
    Pdf.CurrentPage.PrintHyperlink(50, 660, 'Purchase license', 'https://www.loslab.com/en-us/buy-hotpdf-fastspring.html');
    Pdf.CurrentPage.SetRGBHyperlinkColor(clBlue);  // restore default

    Pdf.EndDoc;
  finally
    Pdf.Free;
  end;
end;

procedure PrintWrappedHyperlink(Page: THPDFPage; X, TopY, LineStep: Single;
  const Lines: array of AnsiString; const Link: AnsiString);
var
  I: Integer;
begin
  for I := 0 to High(Lines) do
    Page.PrintHyperlink(X, TopY - I * LineStep, Lines[I], Link);
end;

// Usage: break the label at the positions where your layout wraps it
Pdf.CurrentPage.SetFont('Arial', [], 10);
PrintWrappedHyperlink(Pdf.CurrentPage, 50, 400, 14,
  ['https://www.loslab.com/en-us/pdf-library/',
   'delphi-pdf-component.html'],
  'https://www.loslab.com/en-us/pdf-library/delphi-pdf-component.html');

function AddURILink(Rectangle: TRect; const URL: AnsiString;
  const Description: AnsiString = ''): THPDFDictionaryObject;

procedure AddGoToLink(Rectangle: TRect; TargetPageIndex: Integer;
  YPos: Single = -1; const Description: AnsiString = '');

procedure BuildLinkedTOC(const FileName: string);
const
  Chapters: array[0..2] of string =
    ('Introduction', 'Installation', 'API Reference');
var
  Pdf: THotPDF;
  I, Y: Integer;
begin
  Pdf := THotPDF.Create(nil);
  try
    Pdf.FileName := FileName;
    Pdf.BeginDoc;                        // page 0 becomes the TOC page

    // Create the chapter pages first so the link targets exist
    for I := 0 to High(Chapters) do
    begin
      Pdf.AddPage;                       // pages 1..3
      Pdf.CurrentPage.SetFont('Arial', [fsBold], 14);
      Pdf.CurrentPage.TextOut(50, 780, 0, Chapters[I]);
    end;

    // Switch back to page 0 and draw the TOC entries with their links
    Pdf.CurrentPageNumber := 0;
    Pdf.CurrentPage.SetFont('Arial', [fsBold], 16);
    Pdf.CurrentPage.TextOut(50, 760, 0, 'Contents');
    Pdf.CurrentPage.SetFont('Arial', [], 11);

    Y := 720;
    for I := 0 to High(Chapters) do
    begin
      Pdf.CurrentPage.TextOut(70, Y, 0, Chapters[I]);
      Pdf.CurrentPage.AddGoToLink(
        Rect(70, Y + 14, 300, Y - 3),    // covers the entry with padding
        I + 1,                           // zero-based: chapters are pages 1..3
        780,                             // land with the heading at the top
        AnsiString('Go to ' + Chapters[I]));
      Y := Y - 25;
    end;

    Pdf.EndDoc;
  finally
    Pdf.Free;
  end;
end;

procedure GenerateProductSheet(
  const FileName, ProductName, ProductURL, SupportURL: string);
var
  Pdf: THotPDF;
begin
  Pdf := THotPDF.Create(nil);
  try
    Pdf.FileName := FileName;
    Pdf.Compression := cmFlateDecode;
    Pdf.BeginDoc;

    // Header
    Pdf.CurrentPage.SetFont('Arial', [fsBold], 16);
    Pdf.CurrentPage.TextOut(50, 750, 0, WideString(ProductName));

    // Body paragraph placeholder
    Pdf.CurrentPage.SetFont('Arial', [], 11);
    Pdf.CurrentPage.TextOut(50, 710, 0, 'See the links below for full documentation.');

    // Footer links
    Pdf.CurrentPage.SetFont('Arial', [], 10);
    Pdf.CurrentPage.TextOut(50, 80, 0, 'Links:');
    Pdf.CurrentPage.PrintHyperlink(50, 60, 'Product page', ProductURL);
    Pdf.CurrentPage.PrintHyperlink(200, 60, 'Support', SupportURL);

    Pdf.EndDoc;
  finally
    Pdf.Free;
  end;
end;