delphi 6 - how to use the function "copy" to assign a UTF-8 value to a variable -

-



i use following code assign text sql parameter: 

quinsert.parameters.parambyname('veh_type').value := copy(s,11,1);

sometimes text in .txt file reading in utf-8, has characters using 2 bytes. how can change following code accept utf-8 data?

procedure tprepareform.button1click(sender: tobject); var   f : textfile;   s : string;   : integer;   isansistring : boolean; begin   quinsert   begin     close;     sql.clear;     sql.add('insert v_info_2018');     sql.add('(record_type, plate_group, plate_no, v_type, v_type_cn,');     sql.add('v_type_pt, v_type_pt, v_brand, engine_no, ct_tax_amount');     sql.add('inspect_date, record_date');     sql.add('values (:record_type, :plate_group, :plate_no, :v_type, :v_type_cn, :v_type_pt, :v_type_pt,');     sql.add(':v_brand, :engine_no, :ct_tax_amount,');     sql.add(':inspect_date, :record_date');   end;   := 0;   assignfile(f,edmastername.text);   reset(f);   while not eof(f)   begin     readln(f,s);     inc(i);   end;   prinsert.max := i;   := 0;   reset(f);   vrs_main.statusbar1.panels[5].text:='0';   while not eof(f)   begin     inc(i);     prinsert.stepit;     readln(f,s);     quinsert.parameters.parambyname('record_type').value := copy(s,1,1);     quinsert.parameters.parambyname('plate_group').value := copy(s,2,1);     quinsert.parameters.parambyname('plate_no').value := copy(s,3,8);     quinsert.parameters.parambyname('v_type').value := copy(s,11,1);     quinsert.parameters.parambyname('v_type_cn').value := utf8decode(copy(s,12,50));     quinsert.parameters.parambyname('v_type_pt').value := copy(s,62,50);     quinsert.parameters.parambyname('v_brand').value := copy(s,112,30);     quinsert.parameters.parambyname('engine_no').value := copy(s,142,50);     quinsert.parameters.parambyname('ct_tax_amount').value := copy(s,192,9);     quinsert.parameters.parambyname('inspect_date').value := copy(s,201,50);     quinsert.parameters.parambyname('record_date').value := copy(s,251,8);     quinsert.execsql;     vrs_main.statusbar1.panels[5].text:=inttostr(strtoint(vrs_main.statusbar1.panels[5].text)+1);   end; end;

image

store utf-8 data in utf8string instead of standard string, , call either utf8decode() or utf8toansi() , store result in database.





wiki

Comments

Post a Comment

Popular posts from this blog

python - Read npy file directly from S3 StreamingBody -

-
i have many .npy (numpy) , .json files saved in s3, need download , load these files. for json files downloading files , loading dictionary using following code: obj = s3.object(bucket, key) response = obj.get() body = response['body'].read().decode('utf-8') data = json.loads(body) that way avoid writing .json file disk , reading it. now want same .npy files, equivalent? currently downloading file, saving temp file on disk , loading np.load avoid if possible. following https://stackoverflow.com/a/28196540/3509999 : obj = s3.object(bucket, key) io.bytesio(obj.get()["body"].read()) f: # rewind file f.seek(0) arr = np.load(f) wiki
Read more

kotlin - Out-projected type in generic interface prohibits the use of metod with generic parameter -

-
i start using kotlin , defined interface this: interface aadapter<vh : recyclerview.viewholder> { fun oncreateaviewholder(parent: viewgroup): vh fun onbindaviewholder(v: vh, position: int) } and when try use on code: class klasa ( private val adapter: aadapter<*> ) { fun dosth(){ //... val vh = this.adapter.oncreateaviewholder(parent) //on below line error adapter.onbindaviewholder(v, position) //... } } i error out-projected type 'aadapter<*>' prohibits use of 'public abstract fun onbindaviewholder(v: t, position: int): unit i tied add "in" or "out" definition i'm confused. how allow it. replace aadapter<*> aadapter<recyclerview.viewholder> . class klasa ( private val adapter: aadapter<recyclerview.viewholder> ) { // ... because have declared aadapter has type parameter vh type subclass of recyclerview....
Read more

Asterisk AGI Python Script to Dialplan does not work -

-
i'm stuck project have check database of sip extension incoming caller id , dial sip extension. below receive when run script on asterisk cli. -- registered sip '9125' @ 192.168.1.102:50142 > saved useragent "zoiper rv2.8.40" peer 9125 [2017-08-22 13:53:33] notice[5095]: chan_sip.c:24558 handle_response_peerpoke: peer '9125' reachable. (17ms / 2000ms) == using sip rtp tos bits 184 == using sip rtp cos mark 5 -- executing [0112617769@from-trunk:1] answer("sip/obitrunk1-0000000d", "") in new stack > 0x1ca50d0 -- probation passed - setting rtp source address 192.168.1.98:16834 -- executing [0112617769@from-trunk:2] agi("sip/obitrunk1-0000000d", "test.py") in new stack -- launched agi script /var/lib/asterisk/agi-bin/test.py args: ['/var/lib/asterisk/agi-bin/test.py'] env line: agi_request: test.py env line: agi_channel: sip/obitrunk1-0000000d env line: agi_language: en env line: a...
Read more