怎么将base64字符串转成.bmp文件procedure MakeQrCode(AStr: string; ASize: Integer; Image: TImage); var han

procedure MakeQrCode(AStr: string; ASize: Integer;
  Image: TImage);
var
    handle:Thandle;
    MakeQrCode:TMakeQrCode;
    path:array[0..30] of char;
    buf: string;
    sl:Tstringlist;
    ss:TStringStream;
    ms:TMemoryStream;
begin
    try
        path := 'c:\2.bmp';
        handle := LoadLibrary(pchar('WBarCode2D.dll'));
        if handle > 0 then
        begin
            @MakeQrCode := GetprocAddress(handle,'MakeQrCode');
            if AsSigned(MakeQrCode) then
            if MakeQrCode(pchar(AStr),1,1,1,-1,path,150) > 0 then
            begin
                Image.Picture.LoadFromFile(path);
            end;
        end;
    finally
        //freelibrary(handle)
    end;
end;

 

调用：MakeQrCode(InPutData, 2, Image1);