Функция не работает из потока

[ДралсяСошибками]

Всем Привет.
Не работает если вызвать в потоке

function SHA1(Text: String): String;
var
  Prov, Hash: Cardinal;
  Len: DWord;
  Data: Array [0..19] of Byte;
  i: Integer;
begin
  CryptAcquireContext(Prov, nil, nil, PROV_RSA_FULL, CRYPT_VERIFYCONTEXT);
  CryptCreateHash(Prov, CALG_SHA1, 0, 0, Hash);
  CryptHashData(Hash, @Text[1], Length(Text), 0);
  CryptGetHashParam(Hash, HP_HASHVAL, @Data[0], Len, 0);
  CryptDestroyHash(Hash);
  CryptReleaseContext(Prov, 0);
    for i := 0 to Len - 1 do Result := Result + LowerCase(IntToHex(Data[i], 2));
end;

выдаёт не тот результат и пол хеша нулей

[Stilet]

Каждая из этих функций возвращает результат.
Почему ты не захотел проверять его? Может какая-то из функций дает ошибку.
Например у меня:

    if not CryptAcquireContext(hProv, pcont, nil, AProvType, iFlag) then begin
     Error:='CryptAcquireContext error: '+SysErrorMessage(GetLastOSError);

Или вот:

function TAlisaCrypto.CryptSignString(Txt: ansiString): ansiString;
const
       //sig=AT_KEYEXCHANGE;
       sig=AT_SIGNATURE;
var
  mProv: HCRYPTPROV;
  mHash: HCRYPTHASH;
  BufLen: DWORD;
begin
  Result:='';
  CryptAcquireContext(mProv,nil,nil,PROV_RSA_FULL,0);
  CryptCreateHash(mProv,CALG_MD5,0,0,mHash);
  CryptHashData(mHash,PByte(txt),Length(txt),0);
  BufLen:=0;
  if CryptSignHash(mHash,sig,nil,0,nil,BufLen) and (BufLen>0) then begin
    SetLength(Result,BufLen);
    CryptSignHash(mHash,sig,nil,0,PByte(Result),BufLen);
  end else begin
    Error:='CryptSignString CryptSignHash error: '+SysErrorMessage(GetLastOSError);
    Result:='';
  end;
  CryptDestroyHash(mHash);
  CryptReleaseContext(mProv,0);
end;

Во втором не все проверяется, но он работает.

[ДралсяСошибками]

Не проверял, так как это пока набросок, я лишь потрассировал его и посмотрел результаты, спотыкается на CryptGetHashParam(Hash, HP_HASHVAL, @Data[0], Len, 0); но из главного потока он отрабатывает без ошибок. Вообще я не дописал, что хеширую несколько строк из StringList, не думал, что это важно и вот когда пишу: Str := SHA1(StringList.Text); то облом, а вот когда StringList.GetText то работает.

[WinCoder]

Функция не относится к потоку. Видно по объявлению. Если это функция главного потока, ошибка ясна.

[ДралсяСошибками]

Функция ничья

[Stilet]

когда пишу: Str := SHA1(StringList.Text); то облом, а вот когда StringList.GetText то работает.

ИМХО лучше из StringList.Text вынести в переменную отдельно и ее передавать.

[ДралсяСошибками]

Сообщение от Stilet

ИМХО лучше из StringList.Text вынести в переменную отдельно и ее передавать.

Я так делал, но результат тот же, удивительно(((

StringList.Add('1');
  StringList.Add('2');
  Text := StringList.Text;
  HashSHA1 := SHA1(Text);

Результат:
HashSHA1: '64242101000000000000000000000000d6 422101'

[northener]

А это ничего что в StringList.Text вставляются #13#10 после каждой строки?

[ДралсяСошибками]

И пусть встраиваются.

случайно разобрался со своей бедой, каким то боком в потоке он желает PROV_RSA_AES

[Stilet]

каким то боком в потоке он желает PROV_RSA_AES

Чушь. Я в потоке, вызываемом из потока использую PROV_RSA_FULL без проблем.