SRL Archive - FAQ

I dont really have that much experience in file management using pascal.
I saw this snippet online and Simba doesnt have the EncodeBase64 function so Im kinda lost.

function EncodeFile(const FileName: string): AnsiString;
var
  stream: TMemoryStream;
begin
  stream := TMemoryStream.Create;
  try
    stream.LoadFromFile(Filename);
    result := EncodeBase64(stream.Memory, stream.Size);
  finally
    stream.Free;
  end;
end; 

It would be great if someone could help me :D
Thank you very much.

P.S: I need this because I want to be able to create an API to 9kw.eu using simba, and therefore bot in a game that asks for captchas once in a while. I would be creating and sharing a librarie that would allow to do such a thing :D

http://docs.villavu.com/simba/scriptref/string.html#base64encode

Base64Encode(str);

I know about that one, but it encodes a String. How can I read an image as a string to encode it?

If you want to store an image as a variable in Simba, just Tools>Bitmap conversion (converts a bitmap to a string)
check out a bitmap tutorial here for more info

If i turn an image to a bitmap, and then encode it, would it be possible to be encoded as png? The thing is I wanna read the file as png, but the content of it like this http://php.net/manual/en/function.file-get-contents.php, and then encoded it and be able to send using a post request.

var
  fd: Integer;
  Contents: String;

begin
  fd := OpenFile('C:\path\to\file.png', True);
  if(fd = -1) then
  begin
    Writeln('A problem has occurred while trying to open the file. Does it exist?');
    Exit;
  end;

  if(ReadFileString(fd, Contents, FileSize(fd))) then
  begin
    // Do stuff (Base64Encode here)
    Writeln('Contents of file:');
    Writeln(Contents);
  end else
    Writeln('Error reading from file.');

  CloseFile(fd);
end.

Thank you very much! :D Just what I needed..
I see how easy it was.. should have dig a little bit more Simba's documentation :D