loadfromfile(TStream as file) как-то так

[IvaniuS]

саама процедура

procedure TX509Certificate.LoadFromFile(FileName: string; Encoding: TEncoding);
var
  certfile: pBIO;
  p12: pPKCS12;
  a: pEVP_PKEY;
  c: pX509;
  ca: pSTACK_OFX509;
begin
if not(Encoding in [auto, DER, PEM, NETSCAPE, PKCS12]) then
  raise EOpenSSL.Create('Bad certificate encoding.');
certfile := BIO_new(BIO_s_file());
if certfile = nil then
  raise EOpenSSL.Create('Error creating BIO.');
BIO_read_filename(certfile, PChar(FileName));
if (Encoding = auto) or (encoding = DER) then
  begin
  fCertificate := d2i_X509_bio(certfile, nil);
  if (Encoding = auto) and (fCertificate = nil) then
    BIO_reset(certfile);
  end;
if ((Encoding = auto) and (fCertificate = nil)) or (encoding = NETSCAPE) then
  begin
  // See apps.c
  end;
if ((Encoding = auto) and (fCertificate = nil)) or (encoding = PEM) then
  begin
  fCertificate := PEM_read_bio_X509_AUX(certfile, c, nil, nil);
  if (Encoding = auto) and (fCertificate = nil) then
    BIO_reset(certfile);
  end;
if ((Encoding = auto) and (fCertificate = nil)) or (encoding = PKCS12) then
  begin
  p12 := d2i_PKCS12_bio(certfile, nil);
  PKCS12_parse(p12, nil, a, c, ca);
  fCertificate := c;
  PKCS12_free(p12);
  p12 := nil;
  end;
BIO_free(certfile);
if fCertificate = nil then
  raise EOpenSSL.Create('Unable to read certificate from file ' + FileName + '.');
end;

loadfromstream - просто нету, ну не предусмотрели.
Данных ну Оооооочень много и при обработке если использовать винчестрер т.е. вот так:

var
  cert:TX509Certificate;
  dir:string;
  mstream:TMemoryStream;
begin
 crttext.Clear;
 cert:= TX509Certificate.Create;
 mstream:=TMemoryStream.Create;
 http.Post(sertwin,param, mStream);
 mStream.Position := 0;
 mStream.SaveToFile('filename');
 cert.LoadFromFile('filename');
 with crttext.Lines do
  begin
   Add(cnv(cert.Issuer));
   Add('');
   Add(cnv(cert.Subject));
   Add('');
   Add(DATEToSTR(cert.NotBefore));
   Add('');
   Add(DATEToSTR(cert.NotAfter));
   Add('');
   Add(cnv(cert.Text));
  end;
 cert.Free;
end;

собственно как-то можно указать на файл, могу посмотреть что есть более-менее вменяемый и на скорость записи не влияющий способ.

[Slym]

может как то так

procedure TX509Certificate.LoadFromFile(MemoryStream:TMemoryStream; Encoding: TEncoding);
...
begin
if not(Encoding in [auto, DER, PEM, NETSCAPE, PKCS12]) then
  raise EOpenSSL.Create('Bad certificate encoding.');
certfile := BIO_new(BIO_s_mem());
if certfile = nil then
  raise EOpenSSL.Create('Error creating BIO.');
BIO_read(certfile,MemoryStream.memory,MemoryStream.length);

[IvaniuS]

не нашел MemoryStream.length использовал MemoryStream.Size в итоге получил АВ.
если можно обойтись без редактирования заголовков, я только за, вот что есть в заголовках по работе с памятью из libeay32.pas (заголовки ддлки OpenSSL):

function BIO_s_mem; external LIBEAY_DLL_NAME;
function BIO_f_base64; external LIBEAY_DLL_NAME;
procedure BIO_set_mem_eof_return; external LIBEAY_DLL_NAME;

function BIO_get_mem_data(b: pBIO; var pp: PCharacter): integer; cdecl;
begin
result := BIO_ctrl(b, BIO_CTRL_INFO, 0, @pp);
end;

procedure BIO_set_mem_buf; external LIBEAY_DLL_NAME;
procedure BIO_get_mem_ptr; external LIBEAY_DLL_NAME;
function BIO_new_mem_buf; external LIBEAY_DLL_NAME;
function BIO_s_file; external LIBEAY_DLL_NAME;

это все из openSSlUtils.pas, libeay32.pas, libeay32.dll
мне желательно сделать так чтобы сохранить файл в память и из памяти указать путь.
Ах да забыл уточнить загрузка из файла в делфи выше 2009 вообще не работает, поэтому пишу все это на родной 7й.

[Slym]

конечно же BIO_write
из буфера в bio

[IvaniuS]

ладно потом надеюсь пойму что к чему, все получилось, но только почему-то выскакивает следующее:

Project test1.exe raised exception class EOutOfResources with message "RichEdit line insertion error" ....

и в конце вставляет "" или "5\І" или что-то подобное. Решил странным способом, загружая сначала весь текст в Тстрингс и потом загружая текст в рич и чистя стрингс.