109 |
|
ByName('BlobData').AsString := 'Some German Special Characters like ÖÄÜöäüß'; |
110 |
|
ByName('BlobData2').AsBlob := Attachment.CreateBlob(Transaction,'TestData','BlobData').SetString('Some German Special Characters like ÖÄÜöäüß'); |
111 |
|
ByName('InClear').AsString := #$01'Test'#$0D#$C3; |
112 |
– |
ByName('FixedWidth').AsString := 'É'; |
112 |
|
end; |
113 |
+ |
writeln(Outfile,'Show Param Values'); |
114 |
+ |
ParamInfo(Statement.SQLParams); |
115 |
|
Statement.Execute; |
116 |
|
end; |
117 |
|
|
155 |
|
DPB := FirebirdAPI.AllocateDPB; |
156 |
|
DPB.Add(isc_dpb_user_name).setAsString(Owner.GetUserName); |
157 |
|
DPB.Add(isc_dpb_password).setAsString(Owner.GetPassword); |
157 |
– |
DPB.Add(isc_dpb_set_db_SQL_dialect).setAsByte(SQLDialect); |
158 |
|
Attachment := FirebirdAPI.OpenDatabase(Owner.GetNewDatabaseName,DPB); |
159 |
|
QueryDatabase(Attachment); |
160 |
|
Attachment.Disconnect; |
165 |
|
DPB.Add(isc_dpb_user_name).setAsString(Owner.GetUserName); |
166 |
|
DPB.Add(isc_dpb_password).setAsString(Owner.GetPassword); |
167 |
|
DPB.Add(isc_dpb_lc_ctype).setAsString('WIN1252'); |
168 |
– |
DPB.Add(isc_dpb_set_db_SQL_dialect).setAsByte(SQLDialect); |
168 |
|
Attachment := FirebirdAPI.OpenDatabase(Owner.GetNewDatabaseName,DPB); |
169 |
|
QueryDatabase(Attachment); |
170 |
|
|