Archive

Author Archive

Tiny Uploader 2.73

December 3rd, 2011 No comments

New version of tiny uploader available.

Categories: Delphi stuff, Software Tags:

TwitMee source code

October 12th, 2011 1 comment

Been getting a lot of emails asking for the source code for the demo application TwitMee that uses my delphi twitter library, so finally uploaded it, you can get it here:

http://eden.fm/twitmee/

Categories: Delphi stuff, Software Tags:

Tiny Uploader 2.7 update

October 11th, 2011 1 comment

2.7:
– Added a 64 bit version. Context menu works with this one. (note: aero thumbnails capture doesn’t yet work in this version for x64)
– Cropped capture now displays a live view while you select the area.
– Added a “current session” log area, which is deleted after you restart.

Download:  http://eden.fm/tinypic-uploader/

Categories: Delphi stuff, Software Tags:

MySolusVM 0.5 beta

October 10th, 2011 No comments

Published a new version of my SolusVM client application.

New version supports multiple servers, displays warnings upon an error and there is also a 64-bit version available.

Categories: Delphi stuff, Software Tags:

Aogashima Japan

April 8th, 2011 No comments
Categories: Uncategorized Tags:

Beam of Neutrinos Used to Send Messages

April 8th, 2011 No comments
Categories: tehsuki import Tags:

NDSTokyoTrim 2.5 beta 2

April 7th, 2011 2 comments

New release of my popular trimmer for DS, grab it here http://eden.fm/ndstoykotrim/

Categories: Software Tags:

TwitterLib and TwitMee update

March 31st, 2011 4 comments

Updated my delphi twitter library and the little twitme tool.

There was a problem with the unix timestamp related to daylight savings time which just recently started here.

[download#7#format=2]
[download#7#format=1]

Categories: Delphi stuff, Software Tags:

MySolusVM 0.1

March 24th, 2011 No comments

Little desktop client to monitor the status of your server if you have a SolusVM control panel, for both VPS and Dedicated.

[download#10#format=2]
[download#10#format=1]

Next version will have multiple servers and tray notifications/warnings.

Categories: Software Tags: , , , , ,

Tiny Uploader 2.52

March 13th, 2011 2 comments

2.52:
* added a caption in the status bar indicating the amount of pictures you can upload to Imgur and the time the limit will reset (50 per hour as per their API).
* changed dropbox for a couple buttons for the upload/capture options for a little more convenience.

Grab it at http://eden.fm/tinypic-uploader/

Categories: Software Tags:

Twitter library v0.33

March 5th, 2011 No comments

New version of my Twitter library for Delphi.

– xAuth/SSL support.

There are several changes in the login process, please read the usage.pas and changelog.

[download#7#format=2]
[download#7#format=1]

NDSTokyoTrim 2.5 beta

March 3rd, 2011 1 comment

New version of my popular nds rom trimmer available after more than ~2 years. New:

– Unicode support (filenames in japanese etc)
– Trimming of DSi enhanced roms

Grab it here: http://eden.fm/ndstoykotrim/


Categories: Software Tags:

Articles imported from techsuki

March 3rd, 2011 8 comments

I’ve finally imported all my posts from techsuki.net into a new category here: http://eden.fm/category/techsuki/

I will be closing the old website soon.

Categories: Misc, tehsuki import Tags:

Twitter library update 0.32

February 28th, 2011 No comments

[download#7#format=2]
[download#7#format=1]

Categories: Delphi stuff, Software Tags:

another twitter library update v0.31

February 27th, 2011 1 comment

v0.3:

– Added a method: RetrievePIN(user,pass), with this you can avoid the user having to login and return with an access PIN, the app will retrieve it on its own by simulating a login etc. Use with care, since this method is prone to errors whenever Twitter changes something in their login and auth process. Check usage.pas for details on when to use this.
Note: reposted with a small modification to fix an error in the preauth process, redownload if you got 0.3 before.

[download#7#format=2]
[download#7#format=1]

Here’s the magic:

procedure TwitterCli.RetrievePIN(user,pass: ansistring);
Var h: THttpCli;
    pvars,token,oatoken: ansistring;
    ts: TStringList;
    s,x: ansistring;
    a: Integer;
begin

  LastReq := trRequestRawAccess;

  FCookie := '';
  ts := TStringList.Create;
  h := THttpCli.Create(nil);
  with h do
  begin
    url := 'http://twitter.com/oauth/authorize?oauth_token='+OAuthToken;
    RcvdStream := TMemoryStream.Create;
    OnDocEnd           := HTTPClientDocEnd;
    OnHeaderEnd        := HTTPClientHeaderEnd;
    OnBeforeHeaderSend := HTTPClientBeforeHeaderSend;
    OnCookie           := GrabCookie;
    try
      Get;
    except
      on e:exception do
      begin
        if DebugMode then if Assigned(DebugMemo) then TMemo(DebugMemo).Lines.Add(e.Message);
        ResultStrings.Text := 'Error: '+e.Message;
      end;
    end;

     try
      h.RcvdStream.WriteBuffer(#0' ', 1);
      h.RcvdStream.Position := 0;
      ts.LoadFromStream(h.RcvdStream);
    finally
    end;
  end;

  if h.StatusCode <> 200 then
  begin
    LastHttpStatus := h.StatusCode;
    ResultStrings.Text := 'Error in raw authentication on 1st step';
    h.RcvdStream.Free; h.RcvdStream := nil;
    FreeAndNil(h);
    FreeAndNil(ts);
    TriggerReqDone;
    Exit;
  end;


  if DebugMode then if Assigned(DebugMemo) then with TMemo(DebugMemo) do
   TMemo(DebugMemo).Lines.Add(h.Cookie);

    h.RcvdStream.Free; h.RcvdStream := nil;

  if FCookie[length(FCookie)] = ';' then Delete(FCookie,length(FCookie),1);

  if DebugMode then if Assigned(DebugMemo) then with TMemo(DebugMemo) do
  begin
    TMemo(DebugMemo).Lines.Add('----------------------------------------');
    TMemo(DebugMemo).Lines.Add('----------------------------------------');
  end;

  s := ts.text;
  if Pos('twttr.form_authenticity_token', s) > 0 then
  begin
    Delete(s,1,Pos('twttr.form_authenticity_token',s)+32);
    s := Copy(s,1,Pos('''',s)-1);
  end
  else
  begin
    LastHttpStatus := 0;
    ResultStrings.Text := 'Error in raw authentication prelogin';
    h.RcvdStream.Free; h.RcvdStream := nil;
    FreeAndNil(h);
    FreeAndNil(ts);
    TriggerReqDone;
    Exit;
  end;

  ts.Clear;
  with h do
  begin
    url := 'http://twitter.com/oauth/authorize';
    RcvdStream := TMemoryStream.Create;
    SendStream := TMemoryStream.Create;
    pvars := ('authenticity_token=' + s +
             '&oauth_token=' + OAuthToken +
             '&session%5Busername_or_email%5D=' + user +
             '&session%5Bpassword%5D=' + pass);
    SendStream.Write(pvars[1], Length(pvars));
    SendStream.Seek(0, soFromBeginning);
    OnDocEnd           := HTTPClientDocEnd;
    OnHeaderEnd        := HTTPClientHeaderEnd;
    OnBeforeHeaderSend := HTTPClientBeforeHeaderSend;
    Cookie := FCookie;
    if DebugMode then if Assigned(DebugMemo) then with TMemo(DebugMemo) do
     TMemo(DebugMemo).Lines.Add('Cookie before post='+FCookie);
    ExtraHeader := 'Origin:https://twitter.com' + #13#10 +
                   'Referer:http://twitter.com/oauth/authorize?oauth_token=' + OAuthToken;
    try
      Post;
    except
      on e:exception do
      begin
        if DebugMode then if Assigned(DebugMemo) then TMemo(DebugMemo).Lines.Add(e.Message);
        ResultStrings.Text := 'Error: '+e.Message;
      end;
    end;

     try
      h.RcvdStream.WriteBuffer(#0' ', 1);
      h.RcvdStream.Position := 0;
      ts.LoadFromStream(h.RcvdStream);
    finally
    end;

    x := '';
    s := ts.Text;
    if Pos('<div id="oauth_pin">',s) > 0 then
    begin
      Delete(s,1,Pos('<div id="oauth_pin">',s)+19);
      s := Copy(s,1,Pos('<',s));
      for a := 1 to length(s) do
       if (Ord(s&#91;a&#93;) > 47) and (Ord(s[a]) < 58) then
        x := x + s&#91;a&#93;;
    end;

    LastHttpStatus := h.StatusCode;

    if x = '' then LastHttpStatus := 0
    else AccessPIN := x;

    if DebugMode then if Assigned(DebugMemo) then TMemo(DebugMemo).Lines.Add('PIN='+x);

    if DebugMode then if Assigned(DebugMemo) then with TMemo(DebugMemo) do
    begin
      TMemo(DebugMemo).Lines.Add(ts.Text);
      TMemo(DebugMemo).Lines.Add(h.Cookie);
    end;

    if h.StatusCode <> 200 then ResultStrings.Text := 'Error in raw authentication on 2nd step';

    FreeAndNil(ts);
    h.RcvdStream.Free; h.RcvdStream := nil;
    h.SendStream.Free; h.SendStream := nil;
    FreeAndNil(h);
  end;

  TriggerReqDone;

end;

procedure TwitterCli.GrabCookie(Sender: TObject; const Data: string; var Accept: Boolean);
begin
  FCookie := FCookie + Data + ';';
end;
Categories: Delphi stuff, Software Tags: