Vom Clienten eine URL aufrufen lassen ?!

ex4ct · Beiträge: 67 Delphi 7

Ahhh...jetzt hab ich das mit copy u. delete verstanden!
Findet ihr hier ein Fehler, weil es passiert so garnichts:

Delphi-Quelltext

1:
2:

else If Copy(MyString,1,8)='aufrufen'      then begin Delete(MyString,0,9);
StrPCopy(TMP, MyString); ShellExecute(0,NIL,TMP,NIL,NIL,SW_Normal); end

ex4ct · Beiträge: 67 Delphi 7

Balmung der blaue Gott hat folgendes geschrieben:

Hallo,

Ich nehme an, du hast nicht verstanden, was in den vorherigen postings geschrieben wurde, also nochmal mit Erläuterung:
Statt if MyString = 'aufrufen '+edit3.text then .......
nimmst du If Copy(MyString,1,10)='aufrufen ' Then .......
Copy(MyString,1,10) sind die ersten 10 Zeichen von MyString und wenn die gleich 'aufrufen ' sind, dann ist der Rest die Internetadresse. Diese steht nach dem Befehl Delete(MyStr,0,10); in MyString, weil damit die ersten 9 Zeichen gelöscht werden.

Gut,aber wie kommt die URL hier mit??
Weil du kopierst ja nur aufrufen!

Narses · Verfasst: Di 11.04.06 00:04

Moin!

Ich möchte nochmal Code von weiter oben aufgreifen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;  
  Socket: TCustomWinSocket);  
var  
myString,url,s: String;  
buff : array[0..MAX_COMPUTERNAME_LENGTH] of char;  
TMP: Array[0..255] of char;  
nsize : DWORD;  
rc : hwnd;  
i:integer;  
begin  
nsize := SizeOf(buff);  
myString := Socket.ReceiveText; // warum liest du 2x ...
s:=socket.receivetext; // ...aus der Verbindung?
Randomize(); // das ist IMHO sinnlos an dieser Stelle... ?
if      MyString = 'CDRomOeffnen'          then mciSendString('Set cdaudio door open wait', nil, 0, handle)

Der zweite .RecieveText ist IMHO falsch da. Weiterhin: Was machst du, wenn mehr als ein Paket auf einmal eintrifft? Siehe hier.
Was soll das Randomize bewirken? Vor allem in jedem Ereignis... ?

Bist du sicher, dass du weißt, was du da tust... ?

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

ex4ct · Beiträge: 67 Delphi 7

RANDOMIZE MUSSTE ICH EINTRAGEN!
WEITER UNTEN SIEHST DU DAS:

markieren

Delphi-Quelltext

1:	else if MyString = 'MauspositionAendern' then SetCursorPos(Random(800),Random(600))

DAS RANDOMIZE STEHT IMMER VOR RONDOM,KENN ICH NOCH VON PASCAL!

Narses · Verfasst: Di 11.04.06 09:56

Moin!

ex4ct hat folgendes geschrieben:

DAS RANDOMIZE STEHT IMMER VOR RONDOM,KENN ICH NOCH VON PASCAL!

Davon, dass du in Großbuchstaben schreibst, wird aber die Aussage nicht richtiger... :lol:

Du brauchst nur ein einziges mal Randomize aufrufen, und zwar beim Programmstart (unter Delphi bietet sich dafür das Ereignis FormCreate an, einfach einen Doppelklick auf dem Formular in der IDE machen, dann wird ein entsprechender Handler angelegt); wohlgemerkt: das (Randomize beim Programmstart) war aber auch schon bei TP so!

Nachwievor: Dein Protokoll-Ansatz ist unsauber.

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

ex4ct · Beiträge: 67 Delphi 7

Narses hat folgendes geschrieben:

Moin!

ex4ct hat folgendes geschrieben:

DAS RANDOMIZE STEHT IMMER VOR RONDOM,KENN ICH NOCH VON PASCAL!

Davon, dass du in Großbuchstaben schreibst, wird aber die Aussage nicht richtiger... :lol:

Du brauchst nur ein einziges mal Randomize aufrufen, und zwar beim Programmstart (unter Delphi bietet sich dafür das Ereignis FormCreate an, einfach einen Doppelklick auf dem Formular in der IDE machen, dann wird ein entsprechender Handler angelegt); wohlgemerkt: das (Randomize beim Programmstart) war aber auch schon bei TP so!

Nachwievor: Dein Protokoll-Ansatz ist unsauber.

cu
Narses

Tut mir leid Narses, ichbin noch ein Anfänger, aber mit randomize gehts halt darum muss ich das jetzt auch nicht ändern.

Narses · Verfasst: Di 11.04.06 11:43

Moin!

ex4ct hat folgendes geschrieben:

aber mit randomize gehts halt
[...]
Tut mir leid Narses,

Nein, tut dir doch gar nicht leid...

Du programmierst offensichtlich nach dem "geht doch"-Prinzip, und solange irgend ein Code halbwegs das tut, was du in diesem Augenblick willst, ist dir der Rest egal.

ex4ct hat folgendes geschrieben:

ichbin noch ein Anfänger

Und deshalb solltest du in Erwägung ziehen, dass Leute dir Tipps geben, damit du keiner bleibst.

ex4ct hat folgendes geschrieben:

darum muss ich das jetzt auch nicht ändern.

Du mußt überhaupt nix ändern; du kannst auch einfach immer Anfänger bleiben, wenn du unbedingt möchtest...

Fazit: Das Randomize ist da "falsch" und dein "Protokoll" ist unsauber. Ich habe dir Anhaltspunkte gegeben, wie du es besser machen könntest (und dabei ganz "nebenbei" auch dein aktuelles Problem (URL übertragen) lösen).

Viel Erfolg noch (auch wenn ich das bezweifle...)

//EDIT: Ottografhie-Velher entfernt

_________________
There are 10 types of people - those who understand binary and those who don´t.

ex4ct · Beiträge: 67 Delphi 7

Willst du dich mit mir Unterhalten??? Wenn ja schick mir eine Nachricht!

F34r0fTh3D4rk · Verfasst: Di 11.04.06 15:49

das hätte er wohl auch getan wenn er es gewollt hätte, aber hat nunmal sowas von recht, das geht schon gar nicht mehr :lol:

Narses · Verfasst: Di 11.04.06 15:51

Moin!

ex4ct hat folgendes geschrieben:

Willst du dich mit mir Unterhalten??? Wenn ja schick mir eine Nachricht!

Die Frage ist doch, ob du dich mit irgendjemandem "unterhalten" (=vernünftig reden) willst. Wann ja, warum dann nicht hier im Forum? Warum sollen Andere nicht auch davon profitieren? :gruebel:

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

Fighter#1 · Verfasst: Di 11.04.06 15:59

Back To Topic

_________________
Wer andere beherrscht ist stark,
wer sich selbst beherrscht ist mächtig. Lao Tse

Narses · Verfasst: Di 11.04.06 16:04

Fighter#1 hat folgendes geschrieben:

Back To Topic

das versuche ich ja die ganze Zeit schon...

PS: Bist du jetzt Mod oder was?

_________________
There are 10 types of people - those who understand binary and those who don´t.

Fighter#1 · Verfasst: Di 11.04.06 17:18

Muss man Mod sein um daraufhinzuweisen das das was ihr Postet keinem auch nur irgendwie weiterhilft?

_________________
Wer andere beherrscht ist stark,
wer sich selbst beherrscht ist mächtig. Lao Tse

F34r0fTh3D4rk · Verfasst: Di 11.04.06 17:46

Verdammt noch mal back to topic oder ich melde das hier und dann wird zugemacht

ex4ct · Beiträge: 67 Delphi 7

Dank Fighter hab ich es geschafft

Balmung der blaue Gott · Beiträge: 52 WinXP

Ähm Leute,

Findet ihr das Programm net auch 'n bissel seltsam?
Also ich hab es mir ehrlich gesagt zuerst nicht ganz durchgelesen,
aber in einem anderen Forum wurde dieser Thread geschlossen,
dass hat mich dann doch etwas verwundert und ich hab mir das Programm noch mal angeschaut...
Wozu soll dieses Programm gut sein?

Fighter#1 · Verfasst: Sa 15.04.06 20:36

Wer ein Support programm schreiben will braucht solche funktionen.
ich habe angefangen ein solches Programm zu schreiben, das ist nicht verboten oder ...
Und ex4ct hat auch nichts anderes vor.

_________________
Wer andere beherrscht ist stark,
wer sich selbst beherrscht ist mächtig. Lao Tse

F34r0fTh3D4rk · Verfasst: Sa 15.04.06 20:58

als trojaner taugt das eh nich, von daher, lass ihn machen.

Born-to-Frag · Beiträge: 1094 Win XP SP2, Win 2000 SP4 Delphi 7, 2k5

Ich habe zwar kein derartiges Problem, aber du könntest ja deine Lösung für andere Posten die das gleiche Problem haben

_________________
Theorie ist wenn man alles weiß, aber nichts funktioniert. Praxis ist wenn alles funktioniert, aber niemand weiß warum.
Microsoft vereint Theorie und Praxis: Nichts funktioniert und niemand weiß warum.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme