20. september 2012 - 11:19Der er
13 kommentarer og 1 løsning
Åbne en URL fra Delphi
Jeg har tidligere anvendt nedenstående til at åbne en URL med. Men jeg må have været heldig med de URLs jeg har arbejdet med for jeg finder nu ud af at hvis der ikke står www først, så vil Windoze ikke åbne den. Nogen der har en anden metode eller evt. en metode til at kontrollere og justere en URL under indtastning. Altså fjerne ugyldige tegn og fylde manglende på.
function TFiles.ExecuteNormal(const aFile: string; aParam: string = ''): integer; var SEInfo: TShellExecuteInfo; begin ZeroMemory(@SEInfo, sizeof(SEInfo)); with SEInfo do begin cbSize := SizeOf(SEInfo); fMask := SEE_MASK_INVOKEIDLIST; Wnd := Application.Handle; lpVerb := 'open'; lpFile := PChar(aFile); lpParameters := PChar(aParam) ; nShow := SW_NORMAL; end; ShellExecuteEX(@SEInfo); Result := ExitCode; end;
Det er lige det der er hele humlen - jeg kan ikke være sikker på hvordan folk taster den URL ind i databasen. Og at prøve at forklare folk at de altså skal gøre tingene ens er som ... ja som et eller andet umuligt :-)
Indtil videre har jeg brugt arne_v's forslag, men jeg lader lige stå åbent lidt for at se om ikke der skulle komme en lidt smartere måde at styre det på
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.