Firdaus Archive

FastReport can be configured to get the current paper size from the printer and use it for the report. However, it requires some manual steps in your Delphi code to correctly read the printer's settings and then apply them to the FastReport report object.

Here's a breakdown of how it works and a Delphi script to accomplish this.

Understanding the Process

1. FastReport's Default Behavior: By default, FastReport uses the TfrxReportPage.PaperSize property to determine the page dimensions. This is often set to a standard size like DMPAPER_A4 at design time.
2. Getting Printer Information: The key is to use the Windows API and the Delphi Printers unit to access the TPrinter object. This object holds all the configuration for the currently selected printer, including its DM_PAPERSIZE, DM_PAPERWIDTH, and DM_PAPERLENGTH properties.
3. Applying to FastReport: Once you have the custom dimensions, you can programmatically set the TfrxReportPage.PaperWidth and TfrxReportPage.PaperHeight properties. It's important to set the PaperSize property to DMPAPER_USER (which has a value of 256) to signal that you are using custom dimensions.

Delphi Script to Dynamically Set Paper Size

This script demonstrates a function that can be called before a report is prepared or printed. It gets the current printer's paper size and applies it to a FastReport page.

http://googleusercontent.com/immersive_entry_chip/0

unit frxUtils;

interface

uses

  Windows, Messages, SysUtils, Classes, frxClass, Printers, frxPrinters, frxCustomDB,

  frxDSys, frxDesign, frxGDIplus;

// This procedure gets the current printer's paper dimensions and applies them

// to the specified FastReport page.

procedure SetReportPaperSizeFromPrinter(aReport: TfrxReport);

implementation

procedure SetReportPaperSizeFromPrinter(aReport: TfrxReport);

var

  Device, Driver, Port: array[0..255] of Char;

  hDeviceMode: THandle;

  pDeviceMode: PDeviceMode;

  frxPage: TfrxReportPage;

  PaperWidth, PaperHeight: Integer;

begin

  // Ensure the printer is initialized and there is a report to work with

  if (aReport = nil) or (aReport.Pages[0] = nil) then

    Exit;

  // Get the current printer's device mode information

  Printer.GetPrinter(Device, Driver, Port, hDeviceMode);

  pDeviceMode := GlobalLock(hDeviceMode);

  try

    // Check if the DeviceMode is valid

    if (pDeviceMode <> nil) and (pDeviceMode.dmSize >= SizeOf(TDeviceMode)) then

    begin

      // Read the paper dimensions from the device mode.

      // dmPaperWidth and dmPaperLength are in 0.1mm units.

      PaperWidth := pDeviceMode.dmPaperWidth;

      PaperHeight := pDeviceMode.dmPaperLength;

      // Find the first report page

      frxPage := aReport.Pages[0] as TfrxReportPage;

      // Apply the custom paper size to the FastReport page

      // It's crucial to set PaperSize to DMPAPER_USER to enable custom dimensions

      frxPage.PaperSize := DMPAPER_USER;

      // FastReport's PaperWidth and PaperHeight properties are in millimeters.

      // So, we divide the DM values (in 0.1mm) by 10.

      frxPage.PaperWidth := PaperWidth / 10;

      frxPage.PaperHeight := PaperHeight / 10;

    end;

  finally

    // Unlock and free the handle

    if hDeviceMode <> 0 then

    begin

      GlobalUnlock(hDeviceMode);

      GlobalFree(hDeviceMode);

    end;

  end;

end;

end.

### How to Use the Script

1.  **Save the Unit:** Save the code above as `frxUtils.pas` and add it to your project.

2.  **Call the Procedure:** Before showing the report preview or printing, call the `SetReportPaperSizeFromPrinter` procedure. This ensures the report is sized correctly for the currently selected printer.

Here's an example of how you might call it from a button click event:

```delphi

procedure TForm1.Button1Click(Sender: TObject);

begin

  // Set the printer before preparing the report

  // This is an optional step if you want to use a specific printer instead of the default

  frxReport1.SelectPrinter;

  // Get the printer's custom size and apply it to the report page

  SetReportPaperSizeFromPrinter(frxReport1);

  // Prepare and show the report

  frxReport1.ShowPreparedReport;

end;

Gunakan fungsi page break di fast-report atau gunakan Character khusus untuk mengirim command ke printer seperti #12 untuk page break

Code Snippet :  CommandString = 'Hello, this is a test page!' + #10#12;

Specifically, the #12 character constant is the control character for a Form Feed, which is the command that an Epson dot-matrix printer like the LX-310 understands as a page break. The #10 character is a Line Feed, which moves the print head to the next line.

Contoh Untuk Delphi memakai di bawah ini untuk Cetak Draft

procedure PrintMe(Content: TStringList);

var

sPrinter, sDriver, sPort, sTitle: array[0..255] of Char;

hPrinter, hDevMode: THandle;

DocInfo1: TDocInfo1;

W: DWORD;

S: String;

C: Char;

I: Integer;

begin

// page-break

C := #12;

// initialize the document structure

with DocInfo1 do begin

pDocName := StrPCopy(sTitle, 'Your Title Here');

pOutputFile := nil;

pDatatype := 'RAW';

end;

// get the current printer (sPrinter)

Printer.GetPrinter(sPrinter, sDriver, sPort, hDevMode);

// open the printer

OpenPrinter(sPrinter, hPrinter, nil);

try

try

// start document to spooler

StartDocPrinter(hPrinter, 1, @DocInfo1);

StartPagePrinter(hPrinter);

// send the 'Source' to the printer

for I := 0 to Source.Count - 1 do begin

S := Source.Strings;

if not WritePrinter(hPrinter, PChar(S), Length(S), W) then

Break;

end;

// send a page-break to the printer (optional)

if not WritePrinter(hPrinter, @C, 1, W) then

Break;

// end the page

EndPagePrinter(hPrinter);

// end the document

EndDocPrinter(hPrinter);

finally

// close the printer

ClosePrinter(hPrinter);

end;

except

// abort the job

AbortPrinter(hPrinter);

raise;

end;

end;

https://www.tek-tips.com/threads/printing-text-on-dotmatrix-printer.921897/

 Pilih opsi Start printing after last page is spooler. lalu save, seharusnya cetakan akan sesuai urutan

buat fungsi bernama enrkiptorfir() dan dekriptorfir()

lalu fungsi ini dibuatkan dll library seperti di windows, source code dllnya ini harus di encrypt dan hanya bisa di buka sendiri oleh yang buat

contoh isi dllnya adalah di bawah ini

variabel inputannya ini akan di kunci menggunakan encoding seperti base64 (utamanya mau pakai Ascii85) (atau yang lainnya bisa pakai XXE, UUE, binhex, Base32, Base85, Ascii85) dan di gabung jadi tidak hanya 1 fungsi

fungsi enrkiptorfir() hanya encryptor biasa tidak diberikan tanggal expired 

contoh : base64encode ( ' teksyangakandiencryptdisini ' ) maka hasilnya adalah dGVrc3lhbmdha2FuZGllbmNyeXB0ZGlzaW5p

untuk dekriptorfir() ini di buatkan decodingnya seperti fungsi encryptornya hanya saja diberikan batas expired, logika programnya seperti ini

contoh : 

if date < '2025-07-07' then

base64decode ( ' dGVrc3lhbmdha2FuZGllbmNyeXB0ZGlzaW5p ' ) 

maka hasilnya adalah teksyangakandiencryptdisini 

else 

acaklokasihuruf ( ' dGVrc3lhbmdha2FuZGllbmNyeXB0ZGlzaW5p ' ) maka hasilnya 

maka hasilnya adalah dGVrc3lhbmdha2FuZGllbmNyeXB0ZGlzaW5p di pindah pindah saja lokasinya tapi tidak mendecrypt nilai yang diberikan

_____________________________________________________________________________

cara lain adalah dengan metode encrypt hurufnya dipindah posisi sebanyak 2x akan tetapi decryptnya hanya 1x, maka harus memakai decrypt berulang kali 

contoh encryptfir( 'A' ) maka hasil yang tampil bisa jadi 'C'

tapi decryptfir( 'C' ) maka hasil yang tampil bisa jadi 'B', jika ingin mendapatkan hasil A maka lakukan decryptfir( 'C' ) lagi

akan tetapi di barengi dengan validasi tanggal juga, jika tanggal sudah melewati tertentu maka fungsi tidak berfungsi sebagaimana mestinya

____________________________________________________________________________

fungsi ini harus dipakai di tempat yang vital seperti pada saat insert data, dan pada saat update data, atau bisa juga saat load data saja dan yang di kunci hanya value2 tertentu saja seperti tanggal dll

-------------------------------------------

bisa juga dengan menggunakan aes encryption di database 

CREATE FUNCTION `encrypt_credit_card`(credit_card_number VARCHAR(255), encryption_key VARCHAR(255))

RETURNS BLOB

DETERMINISTIC

BEGIN

  RETURN AES_ENCRYPT(credit_card_number, encryption_key);

END;

SELECT AES_DECRYPT(encrypted_column, 'your_secret_key') AS decrypted_data FROM your_table;

fungsi untuk select dari kolom encryptnya, lalu untuk mengunci dan disimpan di database bisa memakai ini 

INSERT INTO users (username, encrypted_credit_card) VALUES ('John Doe', encrypt_credit_card('1234-5678-9012-3456', 'your_secret_key'));

your_secret_key = ini dijadikan text agar load di dll, jika salah maka hasil encryptnya juga akan salah

di dll gunakan fungsi ini 

if date < tanggal tertentu 2050-01-01 

your_secret_key yang benar

else

your_secret_key yang salah

end

jika seperti ini maka secret keynya akan benar di tanggal tertentu dan akan salah jika tanggal sudah melewati batas

https://www.ghisler.com/download.htm

https://drive.google.com/drive/folders/1l_mhE2aIQBXTqCheKYKusIw69FQrWrwm

Copy Script dibawah ini lalu save as reg dan jalankan lalu akan pause sampai 2033, atau bisa di ganti sendiri ke tahun kapanpun 

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsUpdate\UpdatePolicy\Settings]

"PausedFeatureStatus"=dword:00000000

"PausedQualityStatus"=dword:00000000

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsUpdate\UX\Settings]

"FlightSettingsMaxPauseDays"=dword:00000e42

"PauseFeatureUpdatesStartTime"="2023-11-06T14:03:37Z"

"PauseFeatureUpdatesEndTime"="2033-10-31T14:03:37Z"

"PauseQualityUpdatesStartTime"="2023-11-06T14:03:37Z"

"PauseQualityUpdatesEndTime"="2033-10-31T14:03:37Z"

"PauseUpdatesStartTime"="2023-11-06T14:03:37Z"

"PauseUpdatesExpiryTime"="2033-10-31T14:03:37Z"

Windows 10

Windows 11

Tool ini untuk menunda update sampai ke tanggal tertentu (soft block), atau bisa untuk hard block update  Jalankan saja tool dibawah ini

https://greatis.com/stopupdates10/

atau bisa pakai WUB jika memang benar2 mau kill tasknya (tapi biasanya ini ngefek ke aplikasi yang butuh update)

link Windows Update Blocker sordum.org/downloads/?st-windows-update-blocker

Langsung saja download toolnya dan jalankan https://www.ntlite.com/download/

ada tool lain juga seperti https://msmgtoolkit.in/

ada tool lain seperti https://github.com/LeDragoX/Win-Debloat-Tools

berfungsi menghilangkan bloatware dan sejenisnya

Windows 11 Versi 24H2 mewajibkan untuk login ke Microsft Account, ini jadi menyusahkan para teknisi, ada 2 cara untuk bypass loginnnya

Gunakan RUFUS v4.4 atau lebih baru lalu jalankan seperti biasa, pilih usb drive yang mau dijadikan installer

Muncul kotak dialog seperti dibawah ini, centang sesuai kebutuhan

Klik OK lalu lanjutkan saja

Lalu proses install seperti biasa

Akan muncul command prompt lalu ketik ipconfig /release 
lalu tutup command prompt dan pilih I don't have Internet
Pilih Continue With Limited Setup seperti dibawah

Lanjutkan biasa dan Selesai. 

Cara kedua install seperti biasa lalu jika sudah sampai CHOOSE A COUNTRY seperti dibawah ini tekan SHIFT+F10

muncul command prompt ketikkan OOBE\BYPASSNRO 

tekan SHIFT+F10 lagi lalu ketik ipconfig /release

Close command prompt dan lanjut ke step selanjutnya pilih region, keyboard, dll seperti biasa

lalu sampai muncul kotak dialog dibawah ini pilih I don't have Internet

lalu lanjut pilih Click Continue with limited setup

Lalu akan masuk ke window seperti dibawah maka langkahnya berhasil, tinggal di isi seperti biasa dan selesai

source www.tomshardware.com/how-to/install-windows-11-without-microsoft-account

Jika perlu membuat windows 11 ringan anda bisa memakai tools ntlite.com/download/
Jika masih tidak bisa silahkan komen dibawah, saya akan berikan solusi yang lain.

If you need to handle multiple detail records for a single header record in your stored procedure, you can modify the procedure to accept a JSON array of detail records. This way, you can pass multiple details in a single call to the stored procedure.

### Updated Stored Procedure

Here’s how you can create a stored procedure that accepts multiple detail records in JSON format:

#### Table Structure Example

Assuming the same table structure as before:

```sql

CREATE TABLE header_table (

    id INT AUTO_INCREMENT PRIMARY KEY,

    header_info VARCHAR(255),

    created_at TIMESTAMP DEFAULT CURRENT_TIMESTAMP

);

CREATE TABLE detail_table (

    id INT AUTO_INCREMENT PRIMARY KEY,

    header_id INT,

    detail_info VARCHAR(255),

    created_at TIMESTAMP DEFAULT CURRENT_TIMESTAMP,

    FOREIGN KEY (header_id) REFERENCES header_table(id)

);

```

#### Stored Procedure

Here’s the updated stored procedure:

```sql

DELIMITER //

CREATE PROCEDURE SaveOrUpdateHeaderDetail(

    IN p_header_id INT,

    IN p_header_info VARCHAR(255),

    IN p_details JSON

)

BEGIN

    DECLARE v_header_exists INT;

    -- Check if the header exists

    SELECT COUNT(*) INTO v_header_exists

    FROM header_table

    WHERE id = p_header_id;

    -- If header exists, update it

    IF v_header_exists > 0 THEN

        UPDATE header_table

        SET header_info = p_header_info,

            created_at = NOW()

        WHERE id = p_header_id;

    -- If header does not exist, insert a new header

    ELSE

        INSERT INTO header_table (header_info)

        VALUES (p_header_info);

        -- Get the last inserted header ID

        SET p_header_id = LAST_INSERT_ID();

    END IF;

    -- Clear existing details for the header

    DELETE FROM detail_table WHERE header_id = p_header_id;

    -- Insert new details from JSON

    INSERT INTO detail_table (header_id, detail_info)

    SELECT p_header_id, detail_info

    FROM JSON_TABLE(p_details, '$[*]' COLUMNS (detail_info VARCHAR(255) PATH '$')) AS jt;

END //

DELIMITER ;

```

### Explanation

1. **Parameters**:

   - `p_header_id`: The ID of the header to update or `NULL` for a new header.

   - `p_header_info`: The information for the header.

   - `p_details`: A JSON array containing detail records.

2. **Check for Header Existence**: The procedure checks if the header exists.

3. **Update or Insert Header**: If the header exists, it updates the header information; if not, it inserts a new header and retrieves the new `header_id`.

4. **Clear Existing Details**: Before inserting new details, it deletes any existing details associated with the `header_id`. This ensures that you only keep the latest details.

5. **Insert New Details**: It uses `JSON_TABLE` to extract detail information from the JSON array and insert it into the `detail_table`.

### Usage

You can call this stored procedure like this:

```sql

CALL SaveOrUpdateHeaderDetail(

    NULL, 

    'New Header Info', 

    '["Detail 1", "Detail 2", "Detail 3"]'

);

```

Or to update an existing header with new details:

```sql

CALL SaveOrUpdateHeaderDetail(

    1, 

    'Updated Header Info', 

    '["Updated Detail 1", "Updated Detail 2", "Updated Detail 3"]'

);

```

### Note

- Ensure that your MySQL version supports JSON functions (MySQL 5.7 and later).

- Adjust the data types and lengths according to your actual table definitions.

- If you want to keep existing details and just add new ones, you can modify the logic accordingly.

______________________________________________________________________

To create a stored procedure in MySQL that can save or update data in both a header table and a detail table, we first need to define the structure of the tables. Below is an example of how to create the tables, the stored procedure, and how to call it from PHP using PDO.

### Step 1: Create the Tables

```sql

CREATE TABLE header (

    id INT AUTO_INCREMENT PRIMARY KEY,

    header_info VARCHAR(255),

    header_info2 VARCHAR(255),

    created_at DATETIME DEFAULT CURRENT_TIMESTAMP,

    created_by VARCHAR(255),

    modified_at DATETIME DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP,

    modified_by VARCHAR(255)

);

CREATE TABLE detail (

    id INT AUTO_INCREMENT PRIMARY KEY,

    header_id INT,

    detail_info VARCHAR(255),

    detail_info2 VARCHAR(255),

    detail_info3 VARCHAR(255),

    detail_info4 VARCHAR(255),

    created_at DATETIME DEFAULT CURRENT_TIMESTAMP,

    modified_at DATETIME DEFAULT CURRENT_TIMESTAMP ON UPDATE CURRENT_TIMESTAMP,

    FOREIGN KEY (header_id) REFERENCES header(id) ON DELETE CASCADE

);

```

### Step 2: Create the Stored Procedure

```sql

DELIMITER //

CREATE PROCEDURE SaveOrUpdateHeaderAndDetails(

    IN p_id INT,

    IN p_header_info VARCHAR(255),

    IN p_header_info2 VARCHAR(255),

    IN p_created_by VARCHAR(255),

    IN p_modified_by VARCHAR(255),

    IN p_details JSON

)

BEGIN

    DECLARE v_header_id INT;

    -- Check if the header exists

    IF p_id IS NULL THEN

        -- Insert new header

        INSERT INTO header (header_info, header_info2, created_by, modified_by)

        VALUES (p_header_info, p_header_info2, p_created_by, p_modified_by);

        SET v_header_id = LAST_INSERT_ID();

    ELSE

        -- Update existing header

        UPDATE header

        SET header_info = p_header_info,

            header_info2 = p_header_info2,

            modified_by = p_modified_by

        WHERE id = p_id;

        SET v_header_id = p_id;

    END IF;

    -- Clear existing details for the header

    DELETE FROM detail WHERE header_id = v_header_id;

    -- Insert new details

    SET @json = p_details;

    INSERT INTO detail (header_id, detail_info, detail_info2, detail_info3, detail_info4)

    SELECT v_header_id, detail_info, detail_info2, detail_info3, detail_info4

    FROM JSON_TABLE(@json, '$[*]' 

        COLUMNS (

            detail_info VARCHAR(255) PATH '$.detail_info',

            detail_info2 VARCHAR(255) PATH '$.detail_info2',

            detail_info3 VARCHAR(255) PATH '$.detail_info3',

            detail_info4 VARCHAR(255) PATH '$.detail_info4'

        )

    ) AS details;

END //

DELIMITER ;

```

### Step 3: Example of Calling the Stored Procedure

You can call the stored procedure using the following SQL command:

```sql

CALL SaveOrUpdateHeaderAndDetails(

    NULL, -- For new header, use NULL

    'Header Info 1',

    'Header Info 2',

    'User 1',

    'User 1',

    '[{"detail_info": "Detail 1", "detail_info2": "Detail 2", "detail_info3": "Detail 3", "detail_info4": "Detail 4"}, {"detail_info": "Detail 5", "detail_info2": "Detail 6", "detail_info3": "Detail 7", "detail_info4": "Detail 8"}]'

);

```

### Step 4: PHP Example Using PDO

Certainly! Below is a complete PHP example that demonstrates how to use PDO to call the stored procedure we created earlier. This example includes error handling and assumes you have already set up your MySQL database and tables as described.

### PHP Example to Call the Stored Procedure

```php

<?php

// Database connection parameters

$host = 'localhost'; // Change if necessary

$db = 'your_database'; // Replace with your database name

$user = 'your_username'; // Replace with your database username

$pass = 'your_password'; // Replace with your database password

$charset = 'utf8mb4';

// Set up the Data Source Name (DSN)

$dsn = "mysql:host=$host;dbname=$db;charset=$charset";

$options = [

    PDO::ATTR_ERRMODE            => PDO::ERRMODE_EXCEPTION,

    PDO::ATTR_DEFAULT_FETCH_MODE => PDO::FETCH_ASSOC,

    PDO::ATTR_EMULATE_PREPARES   => false,

];

try {

    // Create a new PDO instance

    $pdo = new PDO($dsn, $user, $pass, $options);

    // Prepare the JSON data for details

    $details = json_encode([

        ['detail_info' => 'Detail 1', 'detail_info2' => 'Detail 2', 'detail_info3' => 'Detail 3', 'detail_info4' => 'Detail 4'],

        ['detail_info' => 'Detail 5', 'detail_info2' => 'Detail 6', 'detail_info3' => 'Detail 7', 'detail_info4' => 'Detail 8']

    ]);

    // Prepare the stored procedure call

    $stmt = $pdo->prepare("CALL SaveOrUpdateHeaderAndDetails(?, ?, ?, ?, ?, ?)");

    // Bind parameters

    $headerId = null; // Use null for a new header, or provide an existing ID to update

    $headerInfo = 'Header Info 1';

    $headerInfo2 = 'Header Info 2';

    $createdBy = 'User 1';

    $modifiedBy = 'User 1';

    // Execute the stored procedure

    $stmt->execute([$headerId, $headerInfo, $headerInfo2, $createdBy, $modifiedBy, $details]);

    echo "Header and details saved/updated successfully.";

} catch (PDOException $e) {

    // Handle any errors

    echo "Error: " . $e->getMessage();

}

?>

```

### Explanation of the Code

1. **Database Connection**: The script starts by defining the database connection parameters and creating a new PDO instance to connect to the MySQL database.

2. **JSON Data Preparation**: The details for the detail table are prepared as a JSON string. This is necessary because the stored procedure expects a JSON input for the details.

3. **Stored Procedure Call**: The script prepares a statement to call the stored procedure `SaveOrUpdateHeaderAndDetails`. It binds the parameters, including the header ID (which is `null` for a new header), header information, created and modified by fields, and the JSON string for details.

4. **Execution**: The stored procedure is executed with the provided parameters. If successful, a success message is displayed.

5. **Error Handling**: If there is an error during the execution, it is caught and displayed.

### Usage

- Make sure to replace the database connection parameters (`$host`, `$db`, `$user`, `$pass`) with your actual database credentials.

- You can change the `$headerId` variable to an existing header ID if you want to update an existing record instead of creating a new one.

- Save this script as a `.php` file and run it on a server with PHP and MySQL support.

This example should give you a good starting point for using stored procedures with PDO in PHP.

link to gist 

https://gist.github.com/ifirdausku/503dec090b2edf54b859f61890ac3d34

https://gist.github.com/ifirdausku/964fc9c105e382496fc570e6bae77785

blackbox ai with my prompt, (try it first)