maciko

Chce zasymulawac klikniecie w innym programie (dokladniej w grze).Próbowalem z mouse eventem ale nic z tego, dziala w kazdej innej aplikacji tylko nie w tej gierce. Ma ktos jakies inne pomysły?

U siebie mam wyłączonego, nie wiem jak u kumpla, ale podobno wziął na zezwalanie. P.S. Wyłączyliśmy z kumplem firewalle, próbowałem się połączyć też na zewnętrznym ip ale nic z tego.

"Asynchronus socket error 10061"

Ten program ma być zarazem klientem jak i serverem. Po naciśnięciu guzika na jednym kompie na drugim wyala błąd socketa. Czy żeby otworzyć socket należy tylko napisać "client.active:=true"?

Piszę program do przesyłania plików między dwoma komputerami. Nie jednak jak zawrzeć połączenie między dwoma komputerami. Próbowałem użyć ClientSocket i ServerSocket ale nic z tego nie wyszło. Czy mógłby ktoś krok po kroku opisać jak trzzeba napisać procedure zawarcia połączenia?? Próbowałem coś takiego: unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ScktComp;type TForm1 = class(TForm) Client: TClientSocket; Server: TServerSocket; Button1: TButton; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure ServerClientRead(Sender: TObject; Socket: TCustomWinSocket); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);beginClient.Port:=32167;Client.Host:='192.168.3.53'Client.Active:=true;CLient.Socket.SendText('DZIAŁA');Client.Active:=false;end;procedure TForm1.FormCreate(Sender: TObject);beginServer.Port := 32167;Server.Active:=true;end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);beginServer.Active:=false;end;procedure TForm1.ServerClientRead(Sender: TObject; Socket: TCustomWinSocket);beginForm1.Caption := Server.Socket.ReceiveText;end;end.

Działa. Wielkie dzięki za pomoc. POZDRO!

unit Main;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, Gauges, ScktComp;type TForm1 = class(TForm) grpPlik: TGroupBox; lblRozmiar: TLabel; txtRozmiar: TEdit; lblSciezka: TLabel; txtPath: TEdit; btnOpen: TButton; grpStatus: TGroupBox; lblWyslano: TLabel; lblSent: TLabel; lblPozostalo: TLabel; lblRemain: TLabel; Progress: TGauge; txtConsole: TRichEdit; grpContacts: TGroupBox; Edit1: TEdit; btnSend: TButton; lstKontakty: TListBox; btnAdd: TButton; btnDelete: TButton; OpenDialog1: TOpenDialog; SaveDialog1: TSaveDialog; ClientSocket1: TClientSocket; ServerSocket1: TServerSocket; procedure btnAddClick(Sender: TObject); procedure Zapiszkontakty; procedure ZaladujKontakty; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end;type kontakt = record IP : string; Nazwa : String; end;var Form1: TForm1; KontaktIndex : integer; Kontakty : array[0..50] of kontakt; plikKontakty : File; licznik : integer;implementationuses Kontakt;{$R *.dfm}procedure TForm1.btnAddClick(Sender: TObject);beginif(frmNowy.Showmodal=1) then begin Zapiszkontakty; end;end;procedure TForm1.Zapiszkontakty;beginAssignFile(plikKontakty,'kontakty.dat');Rewrite(plikKontakty,1);BlockWrite(plikKontakty,Kontakty,sizeof(Kontakty));closeFile(plikKontakty);end;procedure TForm1.ZaladujKontakty;beginif FileExists('kontakty.dat') thenbeginAssignFile(plikKontakty,'kontakty.dat');Reset(plikKontakty,1);Seek(plikKontakty,0);BlockRead(plikKontakty,Kontakty,filesize(plikKontakty));closeFile(plikKontakty);end;end;procedure TForm1.FormCreate(Sender: TObject);beginZaladujKontakty;end;end. Mam problem z procedurą ZapiszKontakty. Mianowicie kiedy otworzę zapisany plik notatnikiem, widać tylko jakieś "krzaczki", a nie tekst. Czy dobrze odwołałem się do bufora? Proszę o pomoc! P.S. Myślę, że to WinXP nie pozwala na poprwany zapis tą metodą, jeśli ktoś zna inną to proszę o odpowiedź.

Chce stworzyć sieć do komunikacji międy starym laptopem, a kompem stacjonarnym. W laptopie nie ma karty sieciowej, lecz słyszłem, że jest możliwe stworzenie sieci za pomocą kabla podłączanego do portów LPT. Czy to prawda? Jeśli tak to czy można to zrobić na win 3.11, i w jaki sposób? Proszę o pomoc! Pozdro!

Działa !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! Problem byl w tym ze nie uzywalem 2 konsol. :? Wielkie Dzieki. Pozdro

Telnetuje sie po STOR, a liczby z PASV zamieniam na hex, lacze je i zamieniam na dec i z takim portem robie "o ftp.republika.pl (port)"

Dzieki za pomoc ale szczerze mowiac cos mi nie wychodzi. Nie stosowalem tego jeszcze w probnym programie, ale probowalem windowsowskim telnetem. Kiedy chce sie polaczyc z serverem przez port wskazany przez niego po wywolaniu instrukcji PASV, po dluzszej chwili pokazuje mi sie "Nacisnij dowolny klawisz aby kontynuowac", czy to normalne? Czy bedzie to dzialalo w programie? Z gory dzieki za pomoc.

Nie moge niczego znalezc na google. Moze moglbys dac mi jakiegos linka do strony o tym temacie??

Pisze program do ftp na telefon komorkowy. Wiem ze do zapisania pliku trzeba wywolac poleceie STOR następnie pownien pokazac sie pokazac komunikat o zmianie metody przekazu na binary, lecz nic takiego nie wyskakuje. Czy trzeba przed poleceniem STOR cos skonfigurowac albo wywolac jakas inna instrukcje? Pomocy!!!