Bitcoin Forum
December 08, 2016, 08:09:08 AM *
News: Latest stable version of Bitcoin Core: 0.13.1  [Torrent].
 
   Home   Help Search Donate Login Register  
Pages: [1]
  Print  
Author Topic: Help to develop delphi/pascal bitcoin client  (Read 1922 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;
1481184548
Hero Member
*
Offline Offline

Posts: 1481184548

View Profile Personal Message (Offline)

Ignore
1481184548
Reply with quote  #2

1481184548
Report to moderator
1481184548
Hero Member
*
Offline Offline

Posts: 1481184548

View Profile Personal Message (Offline)

Ignore
1481184548
Reply with quote  #2

1481184548
Report to moderator
1481184548
Hero Member
*
Offline Offline

Posts: 1481184548

View Profile Personal Message (Offline)

Ignore
1481184548
Reply with quote  #2

1481184548
Report to moderator
There are several different types of Bitcoin clients. EWallets are like banks -- a central organization has complete control over your money. You shouldn't put much money in EWallets.
Advertised sites are not endorsed by the Bitcoin Forum. They may be unsafe, untrustworthy, or illegal in your jurisdiction. Advertise here.
1481184548
Hero Member
*
Offline Offline

Posts: 1481184548

View Profile Personal Message (Offline)

Ignore
1481184548
Reply with quote  #2

1481184548
Report to moderator
1481184548
Hero Member
*
Offline Offline

Posts: 1481184548

View Profile Personal Message (Offline)

Ignore
1481184548
Reply with quote  #2

1481184548
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!