[r2]: / voljsk-tec2 / Db_Structs / _WtrToSqlEscBuffer / svnobj  Maximize  Restore  History

Download this file

22 lines (22 with data), 2.1 kB

Gx_lQ!0…jüo(2~»ü\™u¼System.StringL{f8a58466-d7f6-439f-bbb8-d4600e41d099}ImplementationL{3b83b776-fb25-43b8-99f2-3c507c9143fc}TextDocumentL{f3878285-8e4f-490b-bb1b-9acbb7eb04db}TextLinesL{a5de0b0b-1cb5-4913-ac21-9d70293ec00d}	Id
longTagText
8IF str=0 THEN RETURN; END_IF//calc len‚IF len=0 THEN WHILE str^[len]<>0 DO len:=len+1; END_WHILE; END_IF,size := buffer.Size(); //reserve buffer8buffer.Resize(size+len*4+1);d//add escape symbols and insert result into buffer¢len:=DINT_TO_UDINT(WtrToSqlEscUTF8(buffer.GetStringPtr()+size,len*4+1,str^,len)); //set real size XIF UDINT_TO_DINT(len)<0  THEN len:=0; END_IF0buffer.Resize(size+len);InterfaceL{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}BMETHOD PRIVATE _WtrToSqlEscBufferVAR_INPUT8  str  : POINTER TO WSTRING;  len  : UDINT;END_VARVAR   size : UDINT;!ÐÐÐEÐÐ	
­/ÚÐ-
ÐÐ	
­0ÚÐ-ÐÐ	
­1ÚÐ-ÐÐ	
­2ÚÐ-ÐÐ	
­3ÚÐ-ÐÐ	
­4ÚÐ-ÐÐ	
­5ÚÐ-ÐÐ	
­6ÚÐ-ÐÐ	
­7ÚÐ-ÐÐ	
­8ÚÐ-ÐÐ	
­ÚÐ-ÐÐE	ÐÐ	
­'ÚÐ-ÐÐ	
­(ÚÐ-ÐÐ	
­)ÚÐ-ÐÐ	
­*ÚÐ-ÐÐ	
­+ÚÐ-ÐÐ	
­,ÚÐ-ÐÐ	
­-ÚÐ- ÐÐ	
­.ÚÐ-ÐÐ	
­ÚÐ-!