| 42 |
|
'Create Table TestData ('+ |
| 43 |
|
'RowID Integer not null,'+ |
| 44 |
|
'Title VarChar(32) Character Set UTF8,'+ |
| 45 |
< |
'Notes VarChar(64) Character Set ISO8859_1,'+ |
| 45 |
> |
'Notes VarChar(64) Character Set ISO8859_1 collate FR_FR,'+ |
| 46 |
|
'BlobData Blob sub_type 1 Character Set WIN1252, '+ |
| 47 |
|
'BlobData2 Blob sub_type 1 Character Set UTF8, '+ |
| 48 |
|
'InClear VarChar(16) Character Set OCTETS, '+ |
| 49 |
+ |
'FixedWidth Char(4) Character set UTF8, '+ |
| 50 |
|
'Primary Key(RowID)'+ |
| 51 |
|
')'; |
| 52 |
|
|
| 53 |
|
sqlGetCharSets = 'Select RDB$CHARACTER_SET_NAME,RDB$CHARACTER_SET_ID from RDB$CHARACTER_SETS order by 2'; |
| 54 |
|
|
| 55 |
< |
sqlInsert = 'Insert into TestData(RowID,Title,Notes, BlobData,BlobData2,InClear) Values(:RowID,:Title,:Notes,:BlobData,:BlobData2,:InClear)'; |
| 55 |
> |
sqlInsert = 'Insert into TestData(RowID,Title,Notes, BlobData,BlobData2,InClear,FixedWidth) '+ |
| 56 |
> |
'Values(:RowID,:Title,:Notes,:BlobData,:BlobData2,:InClear,:FixedWidth)'; |
| 57 |
|
|
| 58 |
|
|
| 59 |
|
{ TTest12 } |
| 79 |
|
ByName('BlobData').AsString := 'Some German Special Characters like ÖÄÜöäüß'; |
| 80 |
|
ByName('BlobData2').AsBlob := Attachment.CreateBlob(Transaction,'TestData','BlobData').SetString('Some German Special Characters like ÖÄÜöäüß'); |
| 81 |
|
ByName('InClear').AsString := #$01'Test'#$0D#$C3; |
| 82 |
+ |
ByName('FixedWidth').AsString := 'É'; |
| 83 |
|
end; |
| 84 |
|
Statement.Execute; |
| 85 |
|
end; |
