fork download 
  1. /* write your code below */
  2.  //適用於原始影像之可見型浮水印方法
  3.  //---------------------------------------------------------------------------
  4.  
  5. #include <vcl.h>
  6. #pragma hdrstop
  7.  
  8. #include "File20131226_01.h"
  9. //---------------------------------------------------------------------------
  10. #pragma package(smart_init)
  11. #pragma resource "*.dfm"
  12. TForm1 *Form1;
  13.  
  14. float a; //嵌入強度因子0~1 越接近1表示原始圖片權重佔越大
  15. int gray; //儲存圖片灰階直
  16. //---------------------------------------------------------------------------
  17. __fastcall TForm1::TForm1(TComponent* Owner)
  18. 	: TForm(Owner)
  19. {
  20. }
  21. //---------------------------------------------------------------------------
  22.  
  23.  
  24. void __fastcall TForm1::Button1Click(TObject *Sender)
  25. {
  26. 	OpenPictureDialog1->InitialDir=ExtractFilePath(Application->ExeName);
  27. 	if(OpenPictureDialog1->Execute())
  28. 	{
  29. 		Original_Image->Picture->LoadFormFile(OpenPictureDialod1->FileName);
  30. 		PageControl->ActivePage=TabSheet1;
  31. 	}
  32.  
  33. }
  34. //-------------------------------------------
  35.  
  36. void __fastcall TForm1::Button2Click(TObject *Sender)
  37. {
  38. 	OpenPictureDialog1->InitialDir=ExtractFilePath(Application->ExeName);
  39. 	if(OpenPictureDialog1->Execute())
  40. 	{
  41. 		Watermark_Image->Picture->LoadFormFile(OpenPictureDialod1-
  42.  
  43. >FileName);
  44. 		PageControl->ActivePage=TabSheet1;
  45. 	}
  46.  
  47. }
  48. //-------------------------------------------
  49.  
  50. void __fastcall TForm1::Button3Click(TObject *Sender)
  51. {
  52. 	//嵌入浮水印
  53. 	for(int y=0;y<Origial_Image->Picture->Height;y++)
  54. 	 for(int x=0;x<Original_Image->picture->Width;x++)
  55. 	 {
  56. 	 if(y>=yy->Position && y<yy->Position+Original_Image->Picture->Height
  57. 	 && x>=xx->Position && x<xx->Position+Original_Image->Picture->Width )
  58. 	  {
  59. 	  	gray=a/10*GetValue(Original_Image->Canyas->Pixels[x][y])+(1-
  60.  
  61. a/10)*GetRValue
  62. 		     (Original_Image->Canvas->Pixels[x][y])*GetRValue
  63.  
  64. (Watermark_Image->Canvas
  65. 			 ->Pixels[x-xx->Position][y-yy->Position])/255;
  66.  
  67. 			 Watermarked_Image->Canvas->Pixels[x][y]=(TColor)RGB
  68.  
  69. (gray,gray,gray);
  70. 			 }
  71. 	  else
  72.  
  73. 		Watermarked_Image->Canvas->Pixels[x][y]=Original_Image->Canvas-
  74.  
  75. >Pixels[x][y];
  76. 	 }
  77.  
  78. 	PageControl1->ActivePage=TabSheet2;
  79. }
  80. //--------------------------------------------------
  81.  
  82. void __fastcall TForm1::FormCreat(TObject *Sender)
  83. {
  84.  PageControl1->ActivePage=TabSheet1;
  85.  }
  86. //---------------------------------------------------
  87.  
  88. void __fastcall TForm1::FormClose(TObject *Sender,TCloseAction &Action)
  89. {
  90.  Action=caFree;
  91.  
  92. }
  93. //---------------------------------------------------
  94.  
  95. void_fastcall TForm1::Button6Click(TObject *Sender)
  96. {
  97.  if(SavePictureDialog1->Execute())
  98.  {
  99.   Watermarked_Image->Picture->Bitmap->PixelFormat=pf8bit;
  100.   Watermarked_Image->Picture->SaveToFile(SavePictureDialog->FileName);
  101.  }
  102.  
  103. }
  104. //----------------------------------------------------
  105.  
  106. void __fastcall TForm1::ScrollBar1Change(TObject *Sender)
  107. {
  108.  a=ScrollBar1->Position;
  109.  Label5->Caption=a/10;
  110. }
  111. //-----------------------------------------------------
  112.  
  113. void __fastcall TForm1::xxChange(TObject *Sender)
  114. {
  115.  Label6->Caption=xx->Position;
  116. }
  117. //-----------------------------------------------------
  118.  
  119. void __fastcall TForm1::yyChange(TObject *Sender)
  120. {
  121.  Label7->Caption=yy->Position;
  122. }
  123.  
Success #stdin #stdout #stderr 0.02s 2236KB
comments (?)
stdin 
Standard input is empty
stdout 
Standard output is empty
stderr 
prog.bc 2: syntax error
prog.bc 2: illegal character: \351
prog.bc 2: illegal character: \201
prog.bc 2: illegal character: \251
prog.bc 2: illegal character: \347
prog.bc 2: illegal character: \224
prog.bc 2: illegal character: \250
prog.bc 2: illegal character: \346
prog.bc 2: illegal character: \226
prog.bc 2: illegal character: \274
prog.bc 2: illegal character: \345
prog.bc 2: illegal character: \216
prog.bc 2: illegal character: \237
prog.bc 2: illegal character: \345
prog.bc 2: illegal character: \247
prog.bc 2: illegal character: \213
prog.bc 2: illegal character: \345
prog.bc 2: illegal character: \275
prog.bc 2: illegal character: \261
prog.bc 2: illegal character: \345
prog.bc 2: illegal character: \203
prog.bc 2: illegal character: \217
prog.bc 2: illegal character: \344
prog.bc 2: illegal character: \271
prog.bc 2: illegal character: \213
prog.bc 2: illegal character: \345
prog.bc 2: illegal character: \217
prog.bc 2: illegal character: \257
prog.bc 2: illegal character: \350
prog.bc 2: illegal character: \246
prog.bc 2: illegal character: \213
prog.bc 2: illegal character: \345
prog.bc 2: illegal character: \236
prog.bc 2: illegal character: \213
prog.bc 2: illegal character: \346
prog.bc 2: illegal character: \265
prog.bc 2: illegal character: \256
prog.bc 2: illegal character: \346
prog.bc 2: illegal character: \260
prog.bc 2: illegal character: \264
prog.bc 2: illegal character: \345
prog.bc 2: illegal character: \215
prog.bc 2: illegal character: \260
prog.bc 2: illegal character: \346
prog.bc 2: illegal character: \226
prog.bc 2: illegal character: \271
prog.bc 2: illegal character: \346
prog.bc 2: illegal character: \263
prog.bc 2: illegal character: \225
prog.bc 3: syntax error
prog.bc 9: syntax error
prog.bc 12: illegal character: T
prog.bc 12: syntax error
prog.bc 12: syntax error
prog.bc 14: syntax error
prog.bc 14: illegal character: \345
prog.bc 14: illegal character: \265
prog.bc 14: illegal character: \214
prog.bc 14: illegal character: \345
prog.bc 14: illegal character: \205
prog.bc 14: illegal character: \245
prog.bc 14: illegal character: \345
prog.bc 14: illegal character: \274
prog.bc 14: illegal character: \267
prog.bc 14: illegal character: \345
prog.bc 14: illegal character: \272
prog.bc 14: illegal character: \246
prog.bc 14: illegal character: \345
prog.bc 14: illegal character: \233
prog.bc 14: illegal character: \240
prog.bc 14: illegal character: \345
prog.bc 14: illegal character: \255
prog.bc 14: illegal character: \220
prog.bc 14: illegal character: ~
prog.bc 14: illegal character: \350
prog.bc 14: illegal character: \266
prog.bc 14: illegal character: \212
prog.bc 14: illegal character: \346
prog.bc 14: illegal character: \216
prog.bc 14: illegal character: \245
prog.bc 14: illegal character: \350
prog.bc 14: illegal character: \277
prog.bc 14: illegal character: \221
prog.bc 14: illegal character: \350
prog.bc 14: illegal character: \241
prog.bc 14: illegal character: \250
prog.bc 14: illegal character: \347
prog.bc 14: illegal character: \244
prog.bc 14: illegal character: \272
prog.bc 14: illegal character: \345
prog.bc 14: illegal character: \216
prog.bc 14: illegal character: \237
prog.bc 14: illegal character: \345
prog.bc 14: illegal character: \247
prog.bc 14: illegal character: \213
prog.bc 14: illegal character: \345
prog.bc 14: illegal character: \234
prog.bc 14: illegal character: \226
prog.bc 14: illegal character: \347
prog.bc 14: illegal character: \211
prog.bc 14: illegal character: \207
prog.bc 14: illegal character: \346
prog.bc 14: illegal character: \254
prog.bc 14: illegal character: \212
prog.bc 14: illegal character: \351
prog.bc 14: illegal character: \207
prog.bc 14: illegal character: \215
prog.bc 14: illegal character: \344
prog.bc 14: illegal character: \275
prog.bc 14: illegal character: \224
prog.bc 14: illegal character: \350
prog.bc 14: illegal character: \266
prog.bc 14: illegal character: \212
prog.bc 14: illegal character: \345
prog.bc 14: illegal character: \244
prog.bc 14: illegal character: \247
prog.bc 15: syntax error
prog.bc 15: illegal character: \345
prog.bc 15: illegal character: \204
prog.bc 15: illegal character: \262
prog.bc 15: illegal character: \345
prog.bc 15: illegal character: \255
prog.bc 15: illegal character: \230
prog.bc 15: illegal character: \345
prog.bc 15: illegal character: \234
prog.bc 15: illegal character: \226
prog.bc 15: illegal character: \347
prog.bc 15: illegal character: \211
prog.bc 15: illegal character: \207
prog.bc 15: illegal character: \347
prog.bc 15: illegal character: \201
prog.bc 15: illegal character: \260
prog.bc 15: illegal character: \351
prog.bc 15: illegal character: \232
prog.bc 15: illegal character: \216
prog.bc 15: illegal character: \347
prog.bc 15: illegal character: \233
prog.bc 15: illegal character: \264
prog.bc 17: illegal character: _
prog.bc 17: illegal character: _
prog.bc 17: illegal character: T
prog.bc 17: illegal character: :
prog.bc 17: illegal character: :
prog.bc 17: illegal character: T
prog.bc 17: illegal character: T
prog.bc 17: syntax error
prog.bc 17: illegal character: O
prog.bc 17: syntax error
prog.bc 18: illegal character: :
prog.bc 18: illegal character: T
prog.bc 18: syntax error
prog.bc 18: illegal character: O
prog.bc 21: syntax error
prog.bc 24: syntax error
prog.bc 24: illegal character: _
prog.bc 24: illegal character: _
prog.bc 24: illegal character: T
prog.bc 24: illegal character: :
prog.bc 24: illegal character: :
prog.bc 24: illegal character: T
prog.bc 24: illegal character: O
prog.bc 24: illegal character: S
prog.bc 26: illegal character: O
prog.bc 26: illegal character: P
prog.bc 26: syntax error
prog.bc 26: illegal character: I
prog.bc 26: syntax error
prog.bc 26: illegal character: P
prog.bc 26: syntax error
prog.bc 26: illegal character: N
prog.bc 27: illegal character: O
prog.bc 27: illegal character: P
prog.bc 27: syntax error
prog.bc 27: syntax error
prog.bc 29: illegal character: O
prog.bc 29: illegal character: I
prog.bc 29: syntax error
prog.bc 29: illegal character: P
prog.bc 29: illegal character: L
prog.bc 29: illegal character: O
prog.bc 29: illegal character: P
prog.bc 29: syntax error
prog.bc 29: illegal character: N
prog.bc 30: illegal character: P
prog.bc 30: illegal character: P
prog.bc 30: illegal character: T
prog.bc 30: illegal character: S
prog.bc 30: syntax error
prog.bc 34: syntax error
prog.bc 36: syntax error
prog.bc 36: illegal character: _
prog.bc 36: illegal character: _
prog.bc 36: illegal character: T
prog.bc 36: illegal character: :
prog.bc 36: illegal character: :
prog.bc 36: illegal character: T
prog.bc 36: illegal character: O
prog.bc 36: illegal character: S
prog.bc 38: illegal character: O
prog.bc 38: illegal character: P
prog.bc 38: syntax error
prog.bc 38: illegal character: I
prog.bc 38: syntax error
prog.bc 38: illegal character: P
prog.bc 38: syntax error
prog.bc 38: illegal character: N
prog.bc 39: illegal character: O
prog.bc 39: illegal character: P
prog.bc 39: syntax error
prog.bc 39: syntax error
prog.bc 41: illegal character: W
prog.bc 41: illegal character: I
prog.bc 41: syntax error
prog.bc 41: illegal character: P
prog.bc 41: illegal character: L
prog.bc 41: illegal character: O
prog.bc 41: illegal character: P
prog.bc 41: syntax error
prog.bc 43: illegal character: N
prog.bc 44: illegal character: P
prog.bc 44: illegal character: P
prog.bc 44: illegal character: T
prog.bc 44: illegal character: S
prog.bc 44: syntax error
prog.bc 48: syntax error
prog.bc 50: syntax error
prog.bc 50: illegal character: _
prog.bc 50: illegal character: _
prog.bc 50: illegal character: T
prog.bc 50: illegal character: :
prog.bc 50: illegal character: :
prog.bc 50: illegal character: T
prog.bc 50: illegal character: O
prog.bc 50: illegal character: S
prog.bc 52: syntax error
prog.bc 52: illegal character: \345
prog.bc 52: illegal character: \265
prog.bc 52: illegal character: \214
prog.bc 52: illegal character: \345
prog.bc 52: illegal character: \205
prog.bc 52: illegal character: \245
prog.bc 52: illegal character: \346
prog.bc 52: illegal character: \265
prog.bc 52: illegal character: \256
prog.bc 52: illegal character: \346
prog.bc 52: illegal character: \260
prog.bc 52: illegal character: \264
prog.bc 52: illegal character: \345
prog.bc 52: illegal character: \215
prog.bc 52: illegal character: \260
prog.bc 53: syntax error
prog.bc 53: illegal character: O
prog.bc 53: illegal character: I
prog.bc 53: syntax error
prog.bc 53: illegal character: P
prog.bc 53: illegal character: H
prog.bc 53: syntax error
prog.bc 54: syntax error
prog.bc 54: illegal character: O
prog.bc 54: illegal character: I
prog.bc 54: syntax error
prog.bc 54: illegal character: W
prog.bc 54: syntax error
prog.bc 56: syntax error
prog.bc 56: illegal character: P
prog.bc 56: syntax error
prog.bc 56: illegal character: P
prog.bc 56: illegal character: O
prog.bc 56: illegal character: I
prog.bc 56: syntax error
prog.bc 56: illegal character: P
prog.bc 56: illegal character: H
prog.bc 57: syntax error
prog.bc 57: illegal character: P
prog.bc 57: syntax error
prog.bc 57: illegal character: P
prog.bc 57: illegal character: O
prog.bc 57: illegal character: I
prog.bc 57: syntax error
prog.bc 57: illegal character: P
prog.bc 57: illegal character: W
prog.bc 59: illegal character: G
prog.bc 59: illegal character: V
prog.bc 59: syntax error
prog.bc 59: illegal character: O
prog.bc 59: illegal character: I
prog.bc 59: syntax error
prog.bc 59: illegal character: P
prog.bc 59: syntax error
prog.bc 60: syntax error
prog.bc 61: syntax error
prog.bc 61: illegal character: G
prog.bc 61: illegal character: R
prog.bc 61: illegal character: V
prog.bc 62: illegal character: O
prog.bc 62: illegal character: I
prog.bc 62: syntax error
prog.bc 62: illegal character: P
prog.bc 62: syntax error
prog.bc 62: illegal character: G
prog.bc 62: illegal character: R
prog.bc 62: illegal character: V
prog.bc 64: illegal character: W
prog.bc 64: illegal character: I
prog.bc 64: syntax error
prog.bc 65: syntax error
prog.bc 65: illegal character: P
prog.bc 65: syntax error
prog.bc 65: illegal character: P
prog.bc 65: syntax error
prog.bc 65: illegal character: P
prog.bc 67: illegal character: W
prog.bc 67: illegal character: I
prog.bc 67: syntax error
prog.bc 67: illegal character: P
prog.bc 67: syntax error
prog.bc 67: illegal character: T
prog.bc 67: illegal character: R
prog.bc 67: illegal character: G
prog.bc 69: syntax error
prog.bc 73: illegal character: W
prog.bc 73: illegal character: I
prog.bc 73: illegal character: P
prog.bc 73: syntax error
prog.bc 73: illegal character: O
prog.bc 73: illegal character: I
prog.bc 75: illegal character: P
prog.bc 75: syntax error
prog.bc 78: illegal character: P
prog.bc 78: illegal character: P
prog.bc 78: illegal character: T
prog.bc 78: illegal character: S
prog.bc 78: syntax error
prog.bc 80: syntax error
prog.bc 82: illegal character: _
prog.bc 82: illegal character: _
prog.bc 82: illegal character: T
prog.bc 82: illegal character: :
prog.bc 82: illegal character: :
prog.bc 82: illegal character: T
prog.bc 82: illegal character: O
prog.bc 82: illegal character: S
prog.bc 84: illegal character: P
prog.bc 84: syntax error
prog.bc 84: illegal character: P
prog.bc 84: illegal character: T
prog.bc 84: illegal character: S
prog.bc 84: syntax error
prog.bc 86: syntax error
prog.bc 88: illegal character: _
prog.bc 88: illegal character: _
prog.bc 88: illegal character: T
prog.bc 88: illegal character: :
prog.bc 88: illegal character: :
prog.bc 88: illegal character: T
prog.bc 88: illegal character: O
prog.bc 88: illegal character: S
prog.bc 88: illegal character: T
prog.bc 88: syntax error
prog.bc 90: syntax error
prog.bc 90: syntax error
prog.bc 93: syntax error
prog.bc 95: illegal character: T
prog.bc 95: illegal character: :
prog.bc 95: illegal character: :
prog.bc 95: illegal character: T
prog.bc 95: illegal character: O
prog.bc 95: illegal character: S
prog.bc 97: illegal character: S
prog.bc 97: illegal character: P
prog.bc 97: syntax error
prog.bc 97: syntax error
prog.bc 99: illegal character: W
prog.bc 99: illegal character: I
prog.bc 99: syntax error
prog.bc 99: illegal character: P
prog.bc 99: illegal character: P
prog.bc 100: illegal character: W
prog.bc 100: illegal character: I
prog.bc 100: syntax error
prog.bc 100: illegal character: P
prog.bc 100: illegal character: S
prog.bc 100: illegal character: T
prog.bc 100: illegal character: S
prog.bc 100: illegal character: P
prog.bc 100: syntax error
prog.bc 100: illegal character: N
prog.bc 106: illegal character: _
prog.bc 106: illegal character: _
prog.bc 106: illegal character: T
prog.bc 106: illegal character: :
prog.bc 106: illegal character: :
prog.bc 106: illegal character: S
prog.bc 106: illegal character: T
prog.bc 106: illegal character: O
prog.bc 106: illegal character: S
prog.bc 108: illegal character: S
prog.bc 108: syntax error
prog.bc 108: illegal character: P
prog.bc 109: illegal character: L
prog.bc 109: syntax error
prog.bc 111: syntax error
prog.bc 113: illegal character: _
prog.bc 113: illegal character: _
prog.bc 113: illegal character: T
prog.bc 113: illegal character: :
prog.bc 113: illegal character: :
prog.bc 113: illegal character: T
prog.bc 113: illegal character: O
prog.bc 113: illegal character: S
prog.bc 115: illegal character: L
prog.bc 115: syntax error
prog.bc 115: syntax error
prog.bc 115: illegal character: P
prog.bc 117: syntax error
prog.bc 119: illegal character: _
prog.bc 119: illegal character: _
prog.bc 119: illegal character: T
prog.bc 119: illegal character: :
prog.bc 119: illegal character: :
prog.bc 119: illegal character: T
prog.bc 119: illegal character: O
prog.bc 119: illegal character: S
prog.bc 121: illegal character: L
prog.bc 121: syntax error
prog.bc 121: syntax error
prog.bc 121: illegal character: P
(standard_in) 1: syntax error
https://ideone.com/6cUmM8
language:
BC (bc 1.07.1)
created:
12 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!