Databases
StackOverflow2013
Postsdbo
PO
 

Note that there are some explanatory texts on larger screens.

plurals
  1. PO
    primarykey
    data
    text
    <p>at my old projects i was readed captcha from web. i done this with embedded web browser component cache procedures. so if you can read temporary internet files from your code you can read the image data from cache. i added a simple code to below,</p> <p>the GetCachedFileFromURL and ClearAllEntries functions is declarated in TEmbeddedWebBrowser unit. i was used only my copied code in my solution for lower exe size. but you can use component updated source. the component is open source.</p> <pre><code>uses WinInet; function GetCachedFileFromURL(strUL: string; var strLocalFile: string): Boolean; var lpEntryInfo: PInternetCacheEntryInfo; hCacheDir: LongWord; dwEntrySize: LongWord; dwLastError: LongWord; begin Result := False; dwEntrySize := 0; // Begin the enumeration of the Internet cache. FindFirstUrlCacheEntry(nil, TInternetCacheEntryInfo(nil^), dwEntrySize); GetMem(lpEntryInfo, dwEntrySize); hCacheDir := FindFirstUrlCacheEntry(nil, lpEntryInfo^, dwEntrySize); if (hCacheDir &lt;&gt; 0) and (strUL = lpEntryInfo^.lpszSourceUrlName) then begin strLocalFile := lpEntryInfo^.lpszLocalFileName; Result := True; end; FreeMem(lpEntryInfo); if Result = False then repeat dwEntrySize := 0; // Retrieves the next cache group in a cache group enumeration FindNextUrlCacheEntry(hCacheDir, TInternetCacheEntryInfo(nil^), dwEntrySize); dwLastError := GetLastError(); if (GetLastError = ERROR_INSUFFICIENT_BUFFER) then begin GetMem(lpEntryInfo, dwEntrySize); if (FindNextUrlCacheEntry(hCacheDir, lpEntryInfo^, dwEntrySize)) then begin if strUL = lpEntryInfo^.lpszSourceUrlName then begin strLocalFile := lpEntryInfo^.lpszLocalFileName; Result := True; Break; end; end; FreeMem(lpEntryInfo); end; until (dwLastError = ERROR_NO_MORE_ITEMS); end; procedure TForm1.ClearCache(); begin SearchPattern := spAll; ClearAllEntries; end; </code></pre> <p>usage</p> <pre><code>procedure TForm1.Button1Click(Sender: TObject); var fname:string; jpImg:TJPEGImage; begin ClearCache; try jpImg:=TJPEGImage.Create; GetCachedFileFromURL('https://ebildirge.ssk.gov.tr/WPEB/PG',fname); jpImg.LoadFromFile(fname); finally FreeAndNil(jpgImg); end; end; </code></pre>
    singulars
    1. This table or related slice is empty.
    1. POWhy can't I fetch an AOL captcha image in my Delphi program?
      singulars
      1. PTQuestion
    1. PTAnswer
    1. This table or related slice is empty.
    1. USsabri.arslan
    plurals
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. POWhy can't I fetch an AOL captcha image in my Delphi program?
      singulars
      1. PTQuestion
    1. This table or related slice is empty.
    1. VO
      singulars
      1. PO
      1. This table or related slice is empty.
      1. VTAcceptedByOriginator
    1. COI was trying to stay away from using ie, but thank you for the demo code.
      singulars
      1. PO
      1. USBill
    2. COi understand. but this code already uses internet explorer cache. all you have to do install tembeddedwb component to delphi. also they have demo for this.
      singulars
      1. PO
      1. USsabri.arslan
    3. COI'm going to end up using embeddedWeb for this project, since I cannot figure out the problem. I was trying to stay away from IE. I've got quite a bit of experience with embeddedweb, last time I used it, it had ie8 issues. I'll probably be using your code or similar. Thanks again.
      singulars
      1. PO
      1. USBill
 

Querying!

 
Guidance
A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload