>> Category: Graphic
>> Title: Get Bitmaps from Resource Files (mencari dan memasang file gambar  pada delphi)
>> Date added: 15.03.2006
>> Hits: 2249


procedure GetBitmapFromResource(const sRecourceName: PAnsiChar; const sDestFileName: string); 
const 
  BM = $4D42; {Bitmap type identifier} 
var 
  Bmp: TBitmap; 
  BMF: TBitmapFileHeader; 
  HResInfo: THandle; 
  MemHandle: THandle; 
  mStream: TMemoryStream; 
  ResPtr: PByte; 
begin 
  BMF.bfType := BM; 
  { Find, Load, and Lock the Resource containing BITMAP1 } 
  HResInfo := FindResource(HInstance, sRecourceName, RT_BITMAP); 
  MemHandle := LoadResource(HInstance, HResInfo); 
  ResPtr := LockResource(MemHandle); 
  { the header is lost, so will need to be recalculated, 
  but lets be lazy and let TBitmap recreate the full header } 
  mStream := TMemoryStream.Create; 
  try 
  mStream.SetSize(SizeofResource(HInstance, HResInfo) + SizeOf(BMF)); 
  mStream.Write(BMF, SizeOf(BMF)); 
  mStream.Write(ResPtr^, SizeofResource(HInstance, HResInfo)); 
  mStream.Seek(0, 0); 
  {Create the TBitmap and load the image from the MemoryStream} 
  Bmp := TBitmap.Create; 
  try 
  Bmp.LoadFromStream(mStream); 
  Bmp.SaveToFile(sDestFileName); 
  finally 
  Bmp.Free; 
  end; 
  finally 
  FreeResource(MemHandle); 
  mStream.Free; 
  end; 
end;

Unduhan by //http://www.delphitricks.com/source-code/graphic

===****$$$$ RESETER PRINTER CANON iP 1000 $$$$****===

Waste Ink Counter Reset Manual for Service mode :
Step 1:
1. Turn off the printer. And disconnect the printer cable.
2. Press and hold the POWER button, turn on the printer.
3. The indicator (L.E.D.) should be green.
4. Press and release the RESUME button , the indicator (L.E.D.) should be orange.
5. Press and release the RESUME button again, the indicator (L.E.D.) should be green.
6. Release both buttons.

Step 2 :
Software for Permanant (1st method)
1. Reconnect the USB cable and turn ON your Printer
2. Open "General Tools for iP1000"
3. Select (USB PORT)
4. Choose (SET DESTINATION 1)

Resetter printer

Resetter canon BJC 2100

Dear all reseter's

Reset Waste Ink Canon
1. Remove the Cartridge
2. Unplug the AC Power Cord
3. Close Front access panel
4. Hold down the RESUME/RESET button and plug in the AC power cord
5. Release RESUME/RESET after plugging in the AC Power cord.
6. Press the RESUME/RESET once within
7. Seconds and release the RESUME/RESET .
8. Press and HOLD RESUME/RESET for two seconds or more and release it.
9. Press and HOLD RESUME/RESET for two seconds or more and release it.
10.Unplug AC Power Cord to set data.

Posted by Resetter Printer at 12:15 PM 0 comments

Reseter Canon BJC 1000 Series

Dear all reseter's

Canon Waste Ink Tank Reset Procedures
1: Remove Cartridge2: Unplug the AC Power Cord
3: Hold down the RESUME button
4: Release RESUME after plugging in the AC Power cord.
5: Press the RESUME once within
5 seconds and release the RESUME .
6: Press and HOLD RESUME for two seconds or more and release it.
7: Press and HOLD RESUME for two seconds or more and release it.
8: Unplug AC Power Cord to set data.

Posted by Resetter Printer at 12:11 PM 0 comments