delphi - How can I reverse string to bin? -


how can convert bin string? example:

 string:='s';----------->bin:='0011';

how convert reverse?

my stringtobin code is:

function strtobinstr( astring: string ): string; var : integer; begin := 1 length( astring ) result := inttobin( byte(astring[i]), 4 ); end;  function inttobin(avalue, bits: integer): string; var : integer; begin := bits-1 downto 0 result := result + copy( '10', word(((1 shl i) , avalue) = 0)+1, 1 ); end;

this may help:

function  inttobin( const value: longint; digits: byte;   const spaces: boolean ): ansistring; begin   if digits > 32     digits := 32;   setlength( result, digits );   result := '';   while digits > 0   begin     if (spaces) , ((digits mod 8) = 0)       result := result + #32;     dec(digits, 1);     result := result + inttostr((value shr digits) , 1);   end; end;  function bintoint( value: ansistring ): longint; var   ctmp: ansichar;   lictr, lilen: longint; begin   value := ansistring(stringreplace(value, #32, '', [rfreplaceall]));   lilen := length(value);   ctmp := value[lilen];   dec(lilen);   result := strtoint(ctmp);   lictr := 1;   while lilen > 0   begin     ctmp := value[lilen];     dec( lilen );     result := result + (strtoint(ctmp) shl lictr );     inc(lictr);   end; end;

sample use: 

procedure tform1.formshow(sender: tobject); var   teststr: ansistring;   i: integer;   temp: ansistring; begin   teststr := 'abc';   temp := '';   := 1 length(teststr)     temp := temp + inttobin(ord(ansichar(teststr[i])), 8, false);   showmessage('temp = ' + temp);    teststr := '';   := 1;   while < length(temp)   begin     teststr := teststr + ansichar(bintoint(copy(temp, i, 8)));     inc(i, 8);   end;   showmessage('teststr = ' + teststr); end;

as said in comment original question, think terrible idea, these work.


Comments

Post a Comment

Popular posts from this blog

c# - SharpSVN - How to get the previous revision? -

i trying find efficient way previous revision of file text comparison using sharpsvn. using (svnclient c = new svnclient()) { c.authentication.defaultcredentials = new networkcredential( configurationmanager.appsettings.get("svnserviceusername") , configurationmanager.appsettings.get("svnservicepassword") , configurationmanager.appsettings.get("svnservicedomain") ); c.authentication.sslservertrusthandlers += new eventhandler<svnsslservertrusteventargs>(authentication_sslservertrusthandlers); collection<svnfileversioneventargs> fileversioncollection = new collection<svnfileversioneventargs>(); svnrevisionrange range = new svnrevisionrange(0, this.hooks.revision); svnfileversionsargs args = new svnfileversionsargs(); args.retrieveproperties = true; args.range = range; foreach (svnchangeitem item in log.changedpaths) { string path = this.repositorypath + it...
Read more

c++ - Is it possible to compile a VST on linux? -

for class project i'm attempting write vst plugin backed cuda. current cuda workflow on linux box, i'd prefer compile , link there. according wikipedia , should possible (i couldn't find steinberg documentation relevant linux) can't find makefile or instructions on how build if aren't using xcode or visual studio. i'm vst 3 sdk doesn't support linux. when try compile plugin under linux, error: ./base/source/fatomic.cpp:39:30: fatal error: libkern/osatomic.h: no such file or directory this issue caused following code in "vst3 sdk/base/source/fatomic.cpp" #if mac #include <libkern/osatomic.h> #if mac_os_x_version_min_required > mac_os_x_version_10_4 #define native_atomic_type (volatile int32_t*) #else #define native_atomic_type (int32_t*) #endif #elif windows #include <windows.h> #endif but hope compiling under linux work vst sdk 2.4. reading. jvstwrapper seems run on lin...
Read more

url - Querystring manipulation of email Address in PHP -

i using third party application (email2http) send me emailid, body , message. unable retrieve email id due name appended on , enclosed < , >. here querystring getting. test.php?from=ajay+reddy &subject=cx&body=somebody when print variable in php returns name , not email id. $from = $_get['from']; echo $from; //output ajay reddy please suggest me how can emailid also. i dont want use post method due testing , debugging. it's working fine. forgot use htmlentities() in debugging.
Read more