Nike125

Bardzo dziękuje . znalazłem : Programik Bardzo dobry programik . ///// a masz racje dziadekkleofas mogłem to zrobić w php , ale się zakręciłem .

No ten ImageMagic jest spoko , ale mi jest potrzebny program który pomoże nie mnie , tylko użytkownikom mojej strony internatowej . jpeg zajmują dużo miejsca a mi chodzi o to , zeby zmniejszyć ich rozmiar i zamienić je na gify . Mała prosta aplikacja .

to może znasz jakiś programik do konwersji jpeg'a na gif'a , nie zalezy mi na pisaniu własnej aplikacji ., tylko na tym , zęby to działało ;D

Mam takie pytanie jak za pomocą Delphi zmienić obraz jpg o wymiarach 2000x1500(przykładowo) na obraz w formacie gif o wymiarach 500 na 300 ( przykładowo ) . I jak pobrać obraz jpg z jakiegoś folderu i zapisać go do innego folderu .

ale Hook przechwytuje komunikaty , np można zablokować jakiś przycisk (klawisz ) czy chodzi Ci może o EventMsg bo w jego strukturze jest : TEventMsg = packed record message: UINT; paramL: UINT; paramH: UINT; time: DWORD; hwnd: HWND; end; i jak pobrać te informacje z np.funkcji w moim 2 poście ???? A wiesz moze jak to ptrzerobić ??? procedure pisznaczat(tekst:string); var i: integer; znak: char; begin // text:='.'+text; { Clipboard.Clear; Clipboard.SetTextBuf(PAnsiChar(tekst)); } sendmessage(hwnd,WM_SETFOCUS,0,0); sendmessage(hwnd,WM_KEYDOWN,vk_return,0); sendmessage(hwnd,WM_KEYUP,vk_return,0); sleep(20); for i:=0 to length(tekst) do begin znak:=tekst[i]; sendmessage(hwnd,WM_KEYDOWN,vkkeyscan(znak),0); sendmessage(hwnd,WM_CHAR,ord(znak),0); sendmessage(hwnd,WM_KEYUP,vkkeyscan(znak),0); end; sendmessage(hwnd,WM_KEYDOWN,vk_return,0); sendmessage(hwnd,WM_KEYUP,vk_return,0); end;

znalazłem : function FindWindowEx(hwndParent: HWND; hwndChildAfter: HWND; lpszClass:PChar; lpszWindow:PChar): HWND; stdcall; ale nie znam ani klasy , ani nazwy tego komponentu . jest jakiś sposób na pobranie nazwy tej kontrolki tak , jak przy użyciu GetWindowText

Dzięki , ze w końcu ktoś się odezwał w moim temacie i próbuje mi pomóc ;) ale mam następujący problem : Uruchamiam swój program . łapię handle okna używając : procedure TForm1.WMHOTKEY(var Msg: TMessage); var MousePos : TPoint; Buffer : array[0..255] of char; begin { procedura ta wykonywana jest w momencie, gdy uzytkownik wcisnie kombinacje klawiszy Ctrl+Enter. Wtedy pobierana jest pozycja ekranu, a do zmiennej przypisuje sie uchwyt aktywnego okna } if Msg.WParam = $0001 then begin GetCursorPos(MousePos); // pobierz pozycje kursora xe.Text := IntToStr(MousePos.X); // przypisz do kontrolek ye.Text := IntToStr(MousePos.Y); Foreground := GetForegroundwindow; // pobierz uchwyt okna // pobierz tytul aktywnego okna GetWindowText(Foreground, Buffer, SizeOf(Buffer)); Label42.Caption := Buffer; end; end; 2. włączam stronkę do której chcę wysłać tekst i używająć wcześniejszej metody(Enter + Ctrl) pobieram handle okna . w label42 wyświetla mi się nazwa okna . A edity xe i ye uzupełniają się pozycją myszki .. Następnie używając kodu podanego przez kolegę Pieter podstawionego do buttona : procedure TForm1.Button102Click(Sender: TObject); begin SendMessageBystring(Foreground, WM_SETTEXT, 0, 'Witajcie'); end; wysyłam tekst do okna i ...

Nie mam zielonego pojęcia jak wstawić do ShowMessage jakiś tekst Mam coś takiego : SendMessage(Foreground,WM_CLOSE, 0, 0); Gdzie : Foreground - uchwyt okna do którego wysyłam komunikat Moje pytanie brzmi . jak wysłać tekst w wyznaczone miejsce ( np. w miejsce gdzie wpisuje się wiadomości do chatu ) W jaki sposób to zrobić ????

Chodzi o delphi . Szukam od rana ale nic nie znalazłem . wiem , ze musze najpierw wskazać pozycję myszki , potem wyciągnąć z tej pozycji handle okna . Ale nie umię napisa c do tego kodu :(

Witam . Mam taki oto problem : chcę złapać uchwyt okna . gdzieś wyczytałem że muszę użyć drag and drop i na koncu wykonywania drag and drop używam windowpos . Ale jak to wygląda w kodzie ???? Jeśli ktoś mógłby mi napisać procedure : 1. klikam przycisk ( jakiś button ) 2. najeżdżam myszką na dany obszar ( w moim przypadku na czat gry na pokojach na wp ) 3. wciskam jakiś klawisz ( i w tym momencie otrzymuje uchwyt) Bardzo proszę o pomoc .

A , to chyba wina mojego programu , ponieważ inne mogę uruchomić . Początki zawsze są trudne . Pamiętam jak uczyłem się php . ;););)

No dobra powiedzmy , że zrobiłem zapytanie , ale program mi się nie chce uruchomić . klikam run : pokazuje się na górnym pasku [RUNNING] i znika . co robić ?????

Dziękuje bardzo . już sobie poradziłem . ściągnąłem z neta dbexpressa i teraz mam nazwę połączenia MySQL (Core Lab) i wszystko jest ok . A czy ktoś mógł by mi w prosty i przejrzysty sposób przedstawić jak wykonać zapytanie ??? MySQL mam w małym paluszku ( pisze skrypty PHP wykorzystujące MySQL ) ale jak wykonać zaptanie które doda do tabeli `testy` zapytanie INSERT INTO pobierające wartości z pola o nazwie Edit1 ??? Wiem , ze wielu pomyśli leniuch nie chce mu się poszukać w googlach . Szukałem ale nie jest to dla manie zrozumiałe . Proszę o pomoc .

ściągnąłem plik z neta nie działa , wziąłem plik z serwera MySQL nie działa . Może ja gdzieś robię błąd , a jak powinien wyglądać Object Inspektor przy SQLconnection1 ???

Witam , jestem nowym użytkownikiem , a także świeżym programistą Delphi . Mam taki oto problem chcąc uzyskać połączenie w delphi 6 z bazą danych MySQL poprzez dbexpress pokazuje mi błąd : Unable to Load libmysql.dll plik wrzucił tam gdzie tylko sie dało ( windows , windows32 , folder z projektem , folder lib w programie ) dlaczego tak się dzieje ???