Xojo Conferences
XDCMay2019MiamiUSA

Bildschirmfoto (Real Studio network user group Deutschland Mailinglist archive)

Back to the thread list
Previous thread: FTP Upload via Terminal (Shell)
Next thread: Mehrmals das gleiche Window


office plug-in   -   Markus Schnell
  Bildschirmfoto   -   Clemens
   Re: Bildschirmfoto   -   Christian Schmitz
    Re: Bildschirmfoto   -   Felix Kühne <
     Re: Bildschirmfoto   -   Clemens
   Re: Bildschirmfoto   -   Clemens
    Re: Bildschirmfoto   -   Andreas Sander
     Re: Bildschirmfoto   -   Clemens
      Re: Bildschirmfoto   -   Tobias Hagemann
       Re: Bildschirmfoto   -   Clemens
        Re: Bildschirmfoto   -   Stephan Stoske
        Re: Bildschirmfoto   -   Christian Schmitz

Bildschirmfoto
Date: 13.08.03 21:42 (Wed, 13 Aug 2003 22:42:15 +0200)
From: Clemens
Hallo,

ich hab nochmal ne Frage, gibt es ne Möglichkeit mit RB ein
Bildschirmfoto zumachen und dieses dann als jpeg in einen bestimmten
Ordner abzuspeichern?
Es sollte für Mac und Win funktionieren.

Clemens

- - - - - - - - - -
For list commands, send "Help" in the body of a message to
<<email address removed>>

Re: Bildschirmfoto
Date: 13.08.03 22:27 (Wed, 13 Aug 2003 23:27:52 +0200)
From: Christian Schmitz
Clemens <<email address removed>> wrote:

> Hallo,
>
> ich hab nochmal ne Frage, gibt es ne Möglichkeit mit RB ein
> Bildschirmfoto zumachen und dieses dann als jpeg in einen bestimmten
> Ordner abzuspeichern?

Dafür hab ich ein Plugin...

Ansonsten geht natürlich auch System.Pixel wenn ich mich nicht irre.

Mfg
Christian

--

Re: Bildschirmfoto
Date: 14.08.03 01:23 (Thu, 14 Aug 2003 02:23:36 +0200)
From: Felix Kühne <

Am Mittwoch, 13.08.03 um 23:27 Uhr schrieb Christian Schmitz:

> Clemens <<email address removed>> wrote:
>
>> Hallo,
>>
>> ich hab nochmal ne Frage, gibt es ne Möglichkeit mit RB ein
>> Bildschirmfoto zumachen und dieses dann als jpeg in einen bestimmten
>> Ordner abzuspeichern?
>
> Dafür hab ich ein Plugin...
>
> Ansonsten geht natürlich auch System.Pixel wenn ich mich nicht irre.
Ferner gibt es aber noch ein kostenloses Plug-In von Micono unter
<http://micono.hp.infoseek.co.jp> nahmens "ScreenCapture".

Viele Grüße,
Felix

- - - - - - - - - -
For list commands, send "Help" in the body of a message to
<<email address removed>>

Re: Bildschirmfoto
Date: 14.08.03 10:23 (Thu, 14 Aug 2003 11:23:04 +0200)
From: Clemens
> Ferner gibt es aber noch ein kostenloses Plug-In von Micono unter
> <http://micono.hp.infoseek.co.jp> nahmens "ScreenCapture".

Ja das ist genau das was ich gesucht habe

Clemens

- - - - - - - - - -
For list commands, send "Help" in the body of a message to
<<email address removed>>

Re: Bildschirmfoto
Date: 13.08.03 23:05 (Thu, 14 Aug 2003 00:05:11 +0200)
From: Clemens
Kann mir mal jemand sagen was an dem Code falsch ist? Immer wenn ich
ihn ausführe kommt Nil:

Dim p As Picture
Dim x1, x2, y1, y2 As Integer

x1 = 1
x2 = Screen(0).Width
y1 = 1
y2 = Screen(0).Height

Do Until y1 > y2

Do Until x1 > x2
p.Graphics.Pixel(x1, y1) = System.Pixel(x1, y1)
x1 = x1 + 1
Loop

y1 = y1 + 1
x1 = 1
Loop

Clemens

- - - - - - - - - -
For list commands, send "Help" in the body of a message to
<<email address removed>>

Re: Bildschirmfoto
Date: 13.08.03 23:13 (Thu, 14 Aug 2003 00:13:31 +0200)
From: Andreas Sander
p existiert ja noch nicht!

Andy


Am Donnerstag, 14.08.03, um 00:05 Uhr (Europe/Berlin) schrieb Clemens:

> Kann mir mal jemand sagen was an dem Code falsch ist? Immer wenn ich
> ihn ausführe kommt Nil:
>
> Dim p As Picture
> Dim x1, x2, y1, y2 As Integer
>
> x1 = 1
> x2 = Screen(0).Width
> y1 = 1
> y2 = Screen(0).Height
>
> Do Until y1 > y2
>
> Do Until x1 > x2
> p.Graphics.Pixel(x1, y1) = System.Pixel(x1, y1)
> x1 = x1 + 1
> Loop
>
> y1 = y1 + 1
> x1 = 1
> Loop
>
> Clemens
>
> - - - - - - - - - -
> For list commands, send "Help" in the body of a message to
> <<email address removed>>

- - - - - - - - - -
For list commands, send "Help" in the body of a message to
<<email address removed>>

Re: Bildschirmfoto
Date: 13.08.03 23:15 (Thu, 14 Aug 2003 00:15:40 +0200)
From: Clemens
Stimmt, lol, ich glaube es ist schon zu spät.

Clemens

- - - - - - - - - -
For list commands, send "Help" in the body of a message to
<<email address removed>>

Re: Bildschirmfoto
Date: 13.08.03 23:27 (Thu, 14 Aug 2003 00:27:44 +0200)
From: Tobias Hagemann
> Stimmt, lol, ich glaube es ist schon zu spät.

Was meinst du? Hast du dein Projekt gelöscht oder meinste die Uhrzeit?

--

Re: Bildschirmfoto
Date: 13.08.03 23:30 (Thu, 14 Aug 2003 00:30:58 +0200)
From: Clemens
Ne, ich meine die Uhrzeit und jetzt wo ich dachte es geht kommt schon
wieder ein Fehler und zwar OutOfBounds obwohl ich gar keine Arrays
verwende

Dim p As Picture
Dim x1, x2, y1, y2, z As Integer

x1 = 1
x2 = Screen(0).Width
y1 = 1
y2 = Screen(0).Height
z = Screen(0).Depth

p = NewPicture(x2, y2, z)

Do Until y1 > y2

Do Until x1 > x2
p.Graphics.Pixel(x1, y1) = System.Pixel(x1, y1)
x1 = x1 + 1
Loop

y1 = y1 + 1
x1 = 1
Loop

Clemens

- - - - - - - - - -
For list commands, send "Help" in the body of a message to
<<email address removed>>

Re: Bildschirmfoto
Date: 13.08.03 23:44 (Thu, 14 Aug 2003 00:44:43 +0200)
From: Stephan Stoske

Hi,

das Raster ist Null-orientiert, geht also von 0 bis width-1 bzw. height-1.
Unabhängig von der Farbtiefe solltest du das Bild auch zuerst in ein
32-Bit-Bild kopieren und zwar per RGBSurface, das geht viel schneller.
Pack' in die Methode auch noch ein
#pragma disableBackgroundTasks
das bringt auch noch etwas.

Grüße, Stephan

-------------------------------------------------------------------------
stoske & bertling - visuelle kommunikation
lohmühler berg 30 - 42553 velbert - fon 02053/504464 - fax 02053/923630
<email address removed> - www.stoske-bertling.de - ftp.stoske-bertling.de

- - - - - - - - - -
For list commands, send "Help" in the body of a message to
<<email address removed>>

Re: Bildschirmfoto
Date: 13.08.03 23:45 (Thu, 14 Aug 2003 00:45:56 +0200)
From: Christian Schmitz
Clemens <<email address removed>> wrote:

> Ne, ich meine die Uhrzeit und jetzt wo ich dachte es geht kommt schon
> wieder ein Fehler und zwar OutOfBounds obwohl ich gar keine Arrays
> verwende

pixel(x,y) ist auch ein Array und die Indexe gehen von 0 bis count-1.

Mfg
Christian