  |
|
|
 |
 Shell |
ColdFire 
BlackBoarder
Dabei seit: 08.06.2002
Beiträge: 986
 |
|
| Shell |
|
| code: |
1:
2:
3:
4:
5:
6:
|
begin
ShellExecute(Handle, 'open', PChar(EDIT.Text) , nil, nil, SW_SHOW);
{ http:// muss dabei sein }
end;
|
|
dass problem dass ich habe ist jenes und zwar wenn ein user hier ( EDIT) nur www.black-board.net eingibt kann er über das feld die page nicht aufrufen
ich habe aber auch keine möglichkeit über eine variable URL dass hinzubekommen
GEHT NICHT !!!
| code: |
1:
2:
3:
4:
5:
6:
7:
|
var Url : string;
begin
url:= 'http://';
ShellExecute(Handle, 'open', Url + PChar(EDIT.Text) , nil, nil, SW_SHOW);
end;
|
|
wie kann ich dass sonst lösen HILFE!
mfg CF
Dieser Beitrag wurde 1 mal editiert, zum letzten Mal von ColdFire: 07.06.2005 10:45.
|
|
07.06.2005 10:44 |
|
|
CDW
eine Simulation
Dabei seit: 12.10.2002
Beiträge: 1.329
Herkunft: CreateRemoteThread
|
|
immer diese Panik 
| Zitat: |
var Url : string;
begin
url:= 'http://';
ShellExecute(Handle, 'open', Url + PChar(EDIT.Text) , nil, nil, SW_SHOW);
end; |
hier musst Du beachten das PChar nicht dem normalen Pascal-String entspricht, deshalb ist auch einfache '+' Operation nicht möglich.
Aber:
| code: |
1:
|
PChar(Url +(EDIT.Text)) |
|
sehr wohl
Ich würde vorher aber trotzdem mal eine Überprüfungsroutine einbauen:
| code: |
1:
2:
3:
4:
5:
6:
7:
8:
9:
|
var Url : string;
begin
url:= 'http://';
if(Pos(url,EDIT.text)=0) then Edit.text:=Url+Edit.text ;
ShellExecute(Handle, 'open', PChar(Edit.Text) , nil, nil, SW_SHOW);
end;
|
|
|
|
|
07.06.2005 11:37 |
|
|
Flobre
Member
Dabei seit: 31.08.2003
Beiträge: 288
|
|
| code: |
1:
2:
3:
4:
5:
|
var url : string;
begin
url:= 'http://';
ShellExecute(Handle, 'open', PChar(url) + PChar(EDIT.Text) , nil, nil, SW_SHOW);
end; |
|
vielleicht so?
__________________
InetFree.de
Free SMS Versand
InetChannel.de
Webhosting zu günstigen Preisen (neu: mod_rewrite!)
CoderLinks.de
|
|
|
07.06.2005 11:37 |
|
|
CDW
eine Simulation
Dabei seit: 12.10.2002
Beiträge: 1.329
Herkunft: CreateRemoteThread
|
|
@Flobre: gibt trotzdem Syntaxfehler bei Delphi 5
laut der Delphi Hilfe ist
| Zitat: |
| Ein PChar ein Zeiger auf einen nullterminierten String mit Zeichen des Typs Char. |
und was gaanz anderes als die Pascal-strings. PChar entspricht dem C-Chararray, wenn man aber unbediengt damit arbeiten möchte gibt es StrCat,StrCopy usw. Davon sollte man aber nur vorsichtig Gebrauch machen weil diese Funktionen genauso wie die C-Pendanten Bufforoverflows begünstigen. Die "Pascal" Strings sind nicht nur 0-Terminiert sondern enthalten auch eine längenangabe. (und die Stringoperationen sind sowieso durchdachter und besser als PChar und konsorten
).
|
|
|
07.06.2005 11:50 |
|
|
ColdFire
BlackBoarder
Dabei seit: 08.06.2002
Beiträge: 986
Themenstarter 
|
|
konnte es auch lösen shit immer diese denkblokaden 
| code: |
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
|
var
url : string;
begin
url := MYLABEL.Text;
if Pos ('http://',url) = 0 then
begin
url := 'http://' + url;
end;
ShellExecute(Handle, 'open', PAnsiChar(url) , nil, nil, SW_SHOW);
end;
|
|
|
|
|
07.06.2005 15:08 |
|
|
|
|
|
|
|