Bitcoin Forum
October 21, 2017, 03:25:09 AM *
News: Latest stable version of Bitcoin Core: 0.15.0.1  [Torrent]. (New!)
 
   Home   Help Search Donate Login Register  
Pages: [1]
  Print  
Author Topic: Help to develop delphi/pascal bitcoin client  (Read 2285 times)
Delphi753
Newbie
*
Offline Offline

Activity: 2


View Profile
October 28, 2011, 11:00:25 PM
 #1

Hi all,

I have registered to try to talk about pascal bitcoin developnent.

I will need some help to try to start developing a library that will be used in a bitcoin pascal client.

If you can help, please.

Starting with basic class:

  TBase58 = class(TObject)
  public
    function CharSet: WideString; //valid chars
    function Encode: WideString; //encode Text to base 58
    function Decode: WideString; // decode Text from base 58
    property Text: WideString read FText write FText; // text to be encoded decoded
  end;
Advertised sites are not endorsed by the Bitcoin Forum. They may be unsafe, untrustworthy, or illegal in your jurisdiction. Advertise here.
1508556309
Hero Member
*
Offline Offline

Posts: 1508556309

View Profile Personal Message (Offline)

Ignore
1508556309
Reply with quote  #2

1508556309
Report to moderator
1508556309
Hero Member
*
Offline Offline

Posts: 1508556309

View Profile Personal Message (Offline)

Ignore
1508556309
Reply with quote  #2

1508556309
Report to moderator
1508556309
Hero Member
*
Offline Offline

Posts: 1508556309

View Profile Personal Message (Offline)

Ignore
1508556309
Reply with quote  #2

1508556309
Report to moderator
Delphi753
Newbie
*
Offline Offline

Activity: 2


View Profile
October 28, 2011, 11:16:52 PM
 #2

converted from php code.

function CharSet: WideString;
begin
  Result := '123456789abcdefghijkmnopqrstuvwxyzABCDEFGHJKLMNPQRSTUVWXYZ';
end;

function TBase58.Encode: WideString;
var
  ADiv: Extended;
  ANum, AMod: Int64;
begin
  Result := '';

  ANum := StrToInt64(Text);
  while (ANum >= Count) do
  begin
    ADiv := ANum / Count;
    AMod := Trunc(ANum - (Count * Int(ADiv)));
    Result := CharSet[succ(AMod)] + Result;
    ANum := Trunc(Int(ADiv));
  end;

  if (ANum > 0) then
    Result := CharSet[succ(ANum)] + Result;
end;

Darka
Member
**
Offline Offline

Activity: 67



View Profile WWW
March 27, 2012, 02:20:35 PM
 #3

Do you have any progress with Delphi client?

ИМХО самая удобная биржа - http://goo.gl/2zUkIO
Децентрализованной валюте, децентрализованную сеть - http://cjdns.ru
LTC пул 0% - http://ltc.pool.om.gs
jake262144
Full Member
***
Offline Offline

Activity: 210


View Profile
March 27, 2012, 06:50:19 PM
 #4

*sings out loud* An Ada client, BASIC code pointerless and cross-compiled, why?(1)

Notes:
(1) Line supposed to be sung to the melody of System of a Down/I-E-A-I-A-I-O  Grin
z3rohour
Newbie
*
Offline Offline

Activity: 13


View Profile
March 27, 2012, 06:55:44 PM
 #5

How is different than the one now?
Inaba
Legendary
*
Offline Offline

Activity: 1260



View Profile WWW
March 27, 2012, 07:03:12 PM
 #6


If you're searching these lines for a point, you've probably missed it.  There was never anything there in the first place.
Pages: [1]
  Print  
 
Jump to:  

Sponsored by , a Bitcoin-accepting VPN.
Powered by MySQL Powered by PHP Powered by SMF 1.1.19 | SMF © 2006-2009, Simple Machines Valid XHTML 1.0! Valid CSS!